;;;; Generated on 10/20/2021 at 09:40:02 (UTC+10).

(COMMON-LISP:DECLAIM (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0)
                      COMMON-LISP:SAFETY COMMON-LISP:DEBUG
                      COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.LAPACK-CFFI)

(COMMON-LISP:DECLAIM (COMMON-LISP:INLINE %%SGERQF %SGERQF %%DLASQ4
                      %DLASQ4 %%DORBDB1 %DORBDB1 %%SORGR2 %SORGR2
                      %%CHPGVX %CHPGVX %%CSYTRI_3 %CSYTRI_3 %%ZGEQRT3
                      %ZGEQRT3 %%CGBSVXX %CGBSVXX %%ZLAT2C %ZLAT2C
                      %%ZLAG2C %ZLAG2C %%DTBTRS %DTBTRS %%SSYSV %SSYSV
                      %%DLAQGB %DLAQGB %%CGELSD %CGELSD %%ZLAQR5
                      %ZLAQR5 %%CLACP2 %CLACP2 %%ZSYTRS_ROOK
                      %ZSYTRS_ROOK %%DORMQL %DORMQL %%ZGEBRD %ZGEBRD
                      %%DSYTD2 %DSYTD2 %%ILADLR %ILADLR %%DTRRFS
                      %DTRRFS %%ZGEMQR %ZGEMQR %%CTRTRS %CTRTRS
                      %%ZHPTRF %ZHPTRF %%SLA_PORFSX_EXTENDED
                      %SLA_PORFSX_EXTENDED %%DSYEVX_2STAGE
                      %DSYEVX_2STAGE %%CTRTI2 %CTRTI2 %%DLASQ1 %DLASQ1
                      %%SSYSV_AA %SSYSV_AA %%DSYCON_3 %DSYCON_3
                      %%ZUNGBR %ZUNGBR %%SSYTRI2 %SSYTRI2 %%DLARRB
                      %DLARRB %%DTGSYL %DTGSYL %%DORG2L %DORG2L
                      %%DISNAN %DISNAN %%CTFTTR %CTFTTR %%SLAEDA
                      %SLAEDA %%CSYTF2_RK %CSYTF2_RK %%DSYCON_ROOK
                      %DSYCON_ROOK %%SSTEV %SSTEV %%CGELS %CGELS
                      %%DLASRT %DLASRT %%ZTPTTF %ZTPTTF %%SORBDB2
                      %SORBDB2 %%SLAEBZ %SLAEBZ %%SLAQR0 %SLAQR0
                      %%ZPBTRF %ZPBTRF %%ILAZLC %ILAZLC %%DPBEQU
                      %DPBEQU %%DLAED8 %DLAED8 %%DLAPMR %DLAPMR
                      %%DPTTRF %DPTTRF %%CLAHEF_ROOK %CLAHEF_ROOK
                      %%CPOTRF %CPOTRF %%DLAED9 %DLAED9 %%CGGSVD3
                      %CGGSVD3 %%DLASYF_ROOK %DLASYF_ROOK %%CTGSY2
                      %CTGSY2 %%CLARRV %CLARRV %%CGESVDQ %CGESVDQ
                      %%DLAUU2 %DLAUU2 %%SGBEQU %SGBEQU %%ZHETF2
                      %ZHETF2 %%CHBGVD %CHBGVD %%DLANSB %DLANSB
                      %%STRTTP %STRTTP %%SPTRFS %SPTRFS %%ZLAQSP
                      %ZLAQSP %%ZLAQGE %ZLAQGE %%ZSYTRS2 %ZSYTRS2
                      %%CLATRD %CLATRD %%ZPTSVX %ZPTSVX %%DORMR2
                      %DORMR2 %%ZGBEQU %ZGBEQU %%DTPTTF %DTPTTF
                      %%DSTEGR %DSTEGR %%CUNBDB6 %CUNBDB6 %%DGGSVP3
                      %DGGSVP3 %%SGEQRF %SGEQRF %%ZSPTRS %ZSPTRS
                      %%SGESV %SGESV %%CSYRFSX %CSYRFSX %%CLAQHP
                      %CLAQHP %%DPOSV %DPOSV %%CHPTRD %CHPTRD %%DLARFG
                      %DLARFG %%ZUNBDB3 %ZUNBDB3 %%SGBTRF %SGBTRF
                      %%SLASR %SLASR %%SLAGTF %SLAGTF %%DLASWP %DLASWP
                      %%ZHPTRI %ZHPTRI %%SLASYF_ROOK %SLASYF_ROOK
                      %%ZLAHEF_RK %ZLAHEF_RK %%ZLANSP %ZLANSP
                      %%CSYCONVF_ROOK %CSYCONVF_ROOK %%SGESDD %SGESDD
                      %%ZPBRFS %ZPBRFS %%ZPPRFS %ZPPRFS %%ZGESV %ZGESV
                      %%ZGEQL2 %ZGEQL2 %%SPBSV %SPBSV %%ZGGSVD3
                      %ZGGSVD3 %%CTREVC %CTREVC %%SSPEVX %SSPEVX
                      %%CGGEV %CGGEV %%DLANST %DLANST %%ZGEJSV %ZGEJSV
                      %%CGETRF2 %CGETRF2 %%DORGL2 %DORGL2 %%CHEEQUB
                      %CHEEQUB %%DLAR2V %DLAR2V %%CHETRF_AA %CHETRF_AA
                      %%CLAQGE %CLAQGE %%ZPFTRS %ZPFTRS %%SSPTRS
                      %SSPTRS %%ZHEGVX %ZHEGVX %%SORGL2 %SORGL2
                      %%CHETRF_RK %CHETRF_RK %%ZTPLQT %ZTPLQT %%DGEQRF
                      %DGEQRF %%ZSPCON %ZSPCON %%CGBTRS %CGBTRS
                      %%CLAQR5 %CLAQR5 %%DLA_GBRCOND %DLA_GBRCOND
                      %%SLAQSP %SLAQSP %%SLASCL %SLASCL %%CGEMQRT
                      %CGEMQRT %%DLASCL %DLASCL %%ZLAR2V %ZLAR2V
                      %%CGBBRD %CGBBRD %%CLALSD %CLALSD %%CGGEVX
                      %CGGEVX %%CGERQF %CGERQF %%ZTREXC %ZTREXC
                      %%ZLA_SYRPVGRW %ZLA_SYRPVGRW %%SPBEQU %SPBEQU
                      %%SLA_GBRPVGRW %SLA_GBRPVGRW %%DPFTRF %DPFTRF
                      %%SPPSVX %SPPSVX %%CLAQR2 %CLAQR2 %%ZGEMLQ
                      %ZGEMLQ %%DTFTTP %DTFTTP %%SSYCON %SSYCON
                      %%DGBRFS %DGBRFS %%ZSTEMR %ZSTEMR %%DGGBAK
                      %DGGBAK %%DLARFGP %DLARFGP %%SLA_LIN_BERR
                      %SLA_LIN_BERR %%STGSEN %STGSEN %%DLAR1V %DLAR1V
                      %%ZGELQT %ZGELQT %%DLAMTSQR %DLAMTSQR %%SGEHD2
                      %SGEHD2 %%STRTTF %STRTTF %%CLAUNHR_COL_GETRFNP
                      %CLAUNHR_COL_GETRFNP %%CTRSEN %CTRSEN %%DTREVC
                      %DTREVC %%DSYGVX %DSYGVX %%SORBDB6 %SORBDB6
                      %%DSPTRS %DSPTRS %%DPPTRS %DPPTRS %%DGEBRD
                      %DGEBRD %%DLAPY3 %DLAPY3 %%ZLA_SYRCOND_C
                      %ZLA_SYRCOND_C %%CLAHEF_AA %CLAHEF_AA %%ZLATRZ
                      %ZLATRZ %%CUPGTR %CUPGTR %%DTRTRI %DTRTRI
                      %%SLA_PORPVGRW %SLA_PORPVGRW %%SGELQT3 %SGELQT3
                      %%CGGBAL %CGGBAL %%DLAQR2 %DLAQR2 %%SGBSV %SGBSV
                      %%ZHERFS %ZHERFS %%DLASQ3 %DLASQ3 %%DSPCON
                      %DSPCON %%ZHETF2_RK %ZHETF2_RK %%SLANSY %SLANSY
                      %%SGELQ2 %SGELQ2 %%ZLAGTM %ZLAGTM %%DLAQR5
                      %DLAQR5 %%ZLABRD %ZLABRD %%CHETRF_ROOK
                      %CHETRF_ROOK %%CHBEVX %CHBEVX %%ZLALSA %ZLALSA
                      %%DLAISNAN %DLAISNAN %%ZHFRK %ZHFRK %%SPSTRF
                      %SPSTRF %%DPPRFS %DPPRFS %%ZTRRFS %ZTRRFS
                      %%DLAEBZ %DLAEBZ %%SLAORHR_COL_GETRFNP2
                      %SLAORHR_COL_GETRFNP2 %%STPLQT %STPLQT %%ZTPTRS
                      %ZTPTRS %%CGBTF2 %CGBTF2 %%CLA_SYAMV %CLA_SYAMV
                      %%DLATSQR %DLATSQR %%ILAENV2STAGE %ILAENV2STAGE
                      %%SLANGB %SLANGB %%DGECON %DGECON %%SPPSV %SPPSV
                      %%ZSYSV_RK %ZSYSV_RK %%ZHESV_ROOK %ZHESV_ROOK
                      %%ZSYTRS_AA %ZSYTRS_AA %%ZPTSV %ZPTSV
                      %%SLA_SYRCOND %SLA_SYRCOND %%CUNCSD2BY1
                      %CUNCSD2BY1 %%ZPPCON %ZPPCON %%CLANSP %CLANSP
                      %%CLATRZ %CLATRZ %%SLAQR5 %SLAQR5 %%DRSCL %DRSCL
                      %%ZLAQR3 %ZLAQR3 %%SORM2L %SORM2L %%CHETRS_ROOK
                      %CHETRS_ROOK %%CLAHEF %CLAHEF %%DGBEQU %DGBEQU
                      %%SGETRF %SGETRF %%SGGSVP3 %SGGSVP3 %%SSPRFS
                      %SSPRFS %%CPTTS2 %CPTTS2 %%SLAHR2 %SLAHR2
                      %%ZHEEVD %ZHEEVD %%SGESC2 %SGESC2 %%DOPGTR
                      %DOPGTR %%ZGERQF %ZGERQF %%CSPCON %CSPCON
                      %%ZLARFG %ZLARFG %%ZGEQR2P %ZGEQR2P
                      %%DLA_LIN_BERR %DLA_LIN_BERR %%SORMQL %SORMQL
                      %%CSYTRS %CSYTRS %%DLASD6 %DLASD6 %%CLASCL2
                      %CLASCL2 %%ZGELQ2 %ZGELQ2 %%ZLANHE %ZLANHE
                      %%STPLQT2 %STPLQT2 %%DSYTRF %DSYTRF %%CLAPLL
                      %CLAPLL %%STBCON %STBCON %%CHETRI %CHETRI
                      %%ZLA_GBAMV %ZLA_GBAMV %%ZUNM2L %ZUNM2L %%SPPCON
                      %SPPCON %%CPPTRF %CPPTRF))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGERQF "sgerqf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGERQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7390 ':INT32) (N-REF7391 ':INT32)
                              (LDA-REF7393 ':INT32)
                              (LWORK-REF7396 ':INT32)
                              (INFO-REF7397 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7390 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7393 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7396 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7397 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7392 A)
                                            (TAU-REF7394 TAU)
                                            (WORK-REF7395 WORK))
      (%%SGERQF M-REF7390 N-REF7391 A-REF7392 LDA-REF7393 TAU-REF7394
       WORK-REF7395 LWORK-REF7396 INFO-REF7397))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASQ4 "dlasq4_")
  ((I0 :FOREIGN-ADDRESS) (N0 :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (PP :FOREIGN-ADDRESS) (N0IN :FOREIGN-ADDRESS)
   (DMIN :FOREIGN-ADDRESS) (DMIN1 :FOREIGN-ADDRESS)
   (DMIN2 :FOREIGN-ADDRESS) (DN :FOREIGN-ADDRESS)
   (DN1 :FOREIGN-ADDRESS) (DN2 :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (TTYPE :FOREIGN-ADDRESS) (G :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASQ4
    (I0 N0 Z PP N0IN DMIN DMIN1 DMIN2 DN DN1 DN2 TAU TTYPE G)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ4)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0IN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF7398 ':INT32) (N0-REF7399 ':INT32)
                              (PP-REF7401 ':INT32)
                              (N0IN-REF7402 ':INT32)
                              (DMIN-REF7403 ':DOUBLE)
                              (DMIN1-REF7404 ':DOUBLE)
                              (DMIN2-REF7405 ':DOUBLE)
                              (DN-REF7406 ':DOUBLE)
                              (DN1-REF7407 ':DOUBLE)
                              (DN2-REF7408 ':DOUBLE)
                              (TAU-REF7409 ':DOUBLE)
                              (TTYPE-REF7410 ':INT32)
                              (G-REF7411 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF7398 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF7399 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF7401 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0IN-REF7402 :INT32) N0IN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF7403 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF7404 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF7405 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF7406 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF7407 :DOUBLE) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF7408 :DOUBLE) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF7409 :DOUBLE) TAU)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF7410 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF7411 :DOUBLE) G)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF7400 Z))
      (%%DLASQ4 I0-REF7398 N0-REF7399 Z-REF7400 PP-REF7401 N0IN-REF7402
       DMIN-REF7403 DMIN1-REF7404 DMIN2-REF7405 DN-REF7406 DN1-REF7407
       DN2-REF7408 TAU-REF7409 TTYPE-REF7410 G-REF7411))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORBDB1 "dorbdb1_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORBDB1
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORBDB1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7412 ':INT32) (P-REF7413 ':INT32)
                              (Q-REF7414 ':INT32)
                              (LDX11-REF7416 ':INT32)
                              (LDX21-REF7418 ':INT32)
                              (LWORK-REF7425 ':INT32)
                              (INFO-REF7426 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7412 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7413 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF7414 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF7416 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF7418 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7425 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7426 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF7415 X11)
                                            (X21-REF7417 X21)
                                            (THETA-REF7419 THETA)
                                            (PHI-REF7420 PHI)
                                            (TAUP1-REF7421 TAUP1)
                                            (TAUP2-REF7422 TAUP2)
                                            (TAUQ1-REF7423 TAUQ1)
                                            (WORK-REF7424 WORK))
      (%%DORBDB1 M-REF7412 P-REF7413 Q-REF7414 X11-REF7415
       LDX11-REF7416 X21-REF7417 LDX21-REF7418 THETA-REF7419
       PHI-REF7420 TAUP1-REF7421 TAUP2-REF7422 TAUQ1-REF7423
       WORK-REF7424 LWORK-REF7425 INFO-REF7426))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORGR2 "sorgr2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORGR2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7427 ':INT32) (N-REF7428 ':INT32)
                              (K-REF7429 ':INT32) (LDA-REF7431 ':INT32)
                              (INFO-REF7434 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7427 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7428 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7429 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7431 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7434 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7430 A)
                                            (TAU-REF7432 TAU)
                                            (WORK-REF7433 WORK))
      (%%SORGR2 M-REF7427 N-REF7428 K-REF7429 A-REF7430 LDA-REF7431
       TAU-REF7432 WORK-REF7433 INFO-REF7434))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPGVX "chpgvx_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (BP :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPGVX
    (ITYPE JOBZ RANGE UPLO N AP BP VL VU IL IU ABSTOL M W Z LDZ WORK
     RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPGVX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF7435 ':INT32)
                              (N-REF7439 ':INT32) (VL-REF7442 ':FLOAT)
                              (VU-REF7443 ':FLOAT) (IL-REF7444 ':INT32)
                              (IU-REF7445 ':INT32)
                              (ABSTOL-REF7446 ':FLOAT)
                              (M-REF7447 ':INT32) (LDZ-REF7450 ':INT32)
                              (INFO-REF7455 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF7435 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7439 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF7442 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF7443 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF7444 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF7445 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7446 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7447 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7450 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7455 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7440 AP)
                                            (BP-REF7441 BP)
                                            (W-REF7448 W)
                                            (Z-REF7449 Z)
                                            (WORK-REF7451 WORK)
                                            (RWORK-REF7452 RWORK)
                                            (IWORK-REF7453 IWORK)
                                            (IFAIL-REF7454 IFAIL))
      (%%CHPGVX ITYPE-REF7435 JOBZ RANGE UPLO N-REF7439 AP-REF7440
       BP-REF7441 VL-REF7442 VU-REF7443 IL-REF7444 IU-REF7445
       ABSTOL-REF7446 M-REF7447 W-REF7448 Z-REF7449 LDZ-REF7450
       WORK-REF7451 RWORK-REF7452 IWORK-REF7453 IFAIL-REF7454
       INFO-REF7455))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRI_3 "csytri_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRI_3 (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRI_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7457 ':INT32) (LDA-REF7459 ':INT32)
                              (LWORK-REF7463 ':INT32)
                              (INFO-REF7464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7457 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7459 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7463 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7464 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7458 A)
                                            (E-REF7460 E)
                                            (IPIV-REF7461 IPIV)
                                            (WORK-REF7462 WORK))
      (%%CSYTRI_3 UPLO N-REF7457 A-REF7458 LDA-REF7459 E-REF7460
       IPIV-REF7461 WORK-REF7462 LWORK-REF7463 INFO-REF7464))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQRT3 "zgeqrt3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQRT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQRT3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7465 ':INT32) (N-REF7466 ':INT32)
                              (LDA-REF7468 ':INT32)
                              (LDT-REF7470 ':INT32)
                              (INFO-REF7471 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7465 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7466 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7468 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF7470 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7471 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7467 A)
                                            (T-REF7469 T))
      (%%ZGEQRT3 M-REF7465 N-REF7466 A-REF7467 LDA-REF7468 T-REF7469
       LDT-REF7470 INFO-REF7471))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBSVXX "cgbsvxx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (RPVGRW :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (N_ERR_BNDS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (NPARAMS :FOREIGN-ADDRESS) (PARAMS :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBSVXX
    (FACT TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV EQUED R C B LDB X
     LDX RCOND RPVGRW BERR N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP
     NPARAMS PARAMS WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBSVXX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RPVGRW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7474 ':INT32) (KL-REF7475 ':INT32)
                              (KU-REF7476 ':INT32)
                              (NRHS-REF7477 ':INT32)
                              (LDAB-REF7479 ':INT32)
                              (LDAFB-REF7481 ':INT32)
                              (LDB-REF7487 ':INT32)
                              (LDX-REF7489 ':INT32)
                              (RCOND-REF7490 ':FLOAT)
                              (RPVGRW-REF7491 ':FLOAT)
                              (N_ERR_BNDS-REF7493 ':INT32)
                              (NPARAMS-REF7496 ':INT32)
                              (INFO-REF7500 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7474 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7475 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7476 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7477 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7479 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF7481 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7487 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7489 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7490 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RPVGRW-REF7491 :FLOAT) RPVGRW)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF7493 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF7496 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7500 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7478 AB)
                                            (AFB-REF7480 AFB)
                                            (IPIV-REF7482 IPIV)
                                            (R-REF7484 R)
                                            (C-REF7485 C)
                                            (B-REF7486 B)
                                            (X-REF7488 X)
                                            (BERR-REF7492 BERR)
                                            (ERR_BNDS_NORM-REF7494
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7495
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF7497 PARAMS)
                                            (WORK-REF7498 WORK)
                                            (RWORK-REF7499 RWORK))
      (%%CGBSVXX FACT TRANS N-REF7474 KL-REF7475 KU-REF7476
       NRHS-REF7477 AB-REF7478 LDAB-REF7479 AFB-REF7480 LDAFB-REF7481
       IPIV-REF7482 EQUED R-REF7484 C-REF7485 B-REF7486 LDB-REF7487
       X-REF7488 LDX-REF7489 RCOND-REF7490 RPVGRW-REF7491 BERR-REF7492
       N_ERR_BNDS-REF7493 ERR_BNDS_NORM-REF7494 ERR_BNDS_COMP-REF7495
       NPARAMS-REF7496 PARAMS-REF7497 WORK-REF7498 RWORK-REF7499
       INFO-REF7500))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAT2C "zlat2c_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (SA :FOREIGN-ADDRESS)
   (LDSA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAT2C (UPLO N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAT2C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    SA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7502 ':INT32) (LDA-REF7504 ':INT32)
                              (LDSA-REF7506 ':INT32)
                              (INFO-REF7507 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7502 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7504 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF7506 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7507 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7503 A)
                                            (SA-REF7505 SA))
      (%%ZLAT2C UPLO N-REF7502 A-REF7503 LDA-REF7504 SA-REF7505
       LDSA-REF7506 INFO-REF7507))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAG2C "zlag2c_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (SA :FOREIGN-ADDRESS) (LDSA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAG2C (M N A LDA SA LDSA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAG2C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    SA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDSA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7508 ':INT32) (N-REF7509 ':INT32)
                              (LDA-REF7511 ':INT32)
                              (LDSA-REF7513 ':INT32)
                              (INFO-REF7514 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7508 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7511 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDSA-REF7513 :INT32) LDSA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7514 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7510 A)
                                            (SA-REF7512 SA))
      (%%ZLAG2C M-REF7508 N-REF7509 A-REF7510 LDA-REF7511 SA-REF7512
       LDSA-REF7513 INFO-REF7514))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTBTRS "dtbtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTBTRS
    (UPLO TRANS DIAG N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7518 ':INT32) (KD-REF7519 ':INT32)
                              (NRHS-REF7520 ':INT32)
                              (LDAB-REF7522 ':INT32)
                              (LDB-REF7524 ':INT32)
                              (INFO-REF7525 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7518 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF7519 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7520 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7522 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7524 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7525 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7521 AB)
                                            (B-REF7523 B))
      (%%DTBTRS UPLO TRANS DIAG N-REF7518 KD-REF7519 NRHS-REF7520
       AB-REF7521 LDAB-REF7522 B-REF7523 LDB-REF7524 INFO-REF7525))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYSV "ssysv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYSV
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7527 ':INT32)
                              (NRHS-REF7528 ':INT32)
                              (LDA-REF7530 ':INT32)
                              (LDB-REF7533 ':INT32)
                              (LWORK-REF7535 ':INT32)
                              (INFO-REF7536 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7527 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7528 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7530 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7533 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7535 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7536 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7529 A)
                                            (IPIV-REF7531 IPIV)
                                            (B-REF7532 B)
                                            (WORK-REF7534 WORK))
      (%%SSYSV UPLO N-REF7527 NRHS-REF7528 A-REF7529 LDA-REF7530
       IPIV-REF7531 B-REF7532 LDB-REF7533 WORK-REF7534 LWORK-REF7535
       INFO-REF7536))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQGB "dlaqgb_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQGB
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQGB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7537 ':INT32) (N-REF7538 ':INT32)
                              (KL-REF7539 ':INT32) (KU-REF7540 ':INT32)
                              (LDAB-REF7542 ':INT32)
                              (ROWCND-REF7545 ':DOUBLE)
                              (COLCND-REF7546 ':DOUBLE)
                              (AMAX-REF7547 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7537 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7538 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF7539 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF7540 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7542 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF7545 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF7546 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF7547 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7541 AB)
                                            (R-REF7543 R)
                                            (C-REF7544 C))
      (%%DLAQGB M-REF7537 N-REF7538 KL-REF7539 KU-REF7540 AB-REF7541
       LDAB-REF7542 R-REF7543 C-REF7544 ROWCND-REF7545 COLCND-REF7546
       AMAX-REF7547 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELSD "cgelsd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELSD
    (M N NRHS A LDA B LDB S RCOND RANK WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELSD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7549 ':INT32) (N-REF7550 ':INT32)
                              (NRHS-REF7551 ':INT32)
                              (LDA-REF7553 ':INT32)
                              (LDB-REF7555 ':INT32)
                              (RCOND-REF7557 ':FLOAT)
                              (RANK-REF7558 ':INT32)
                              (LWORK-REF7560 ':INT32)
                              (INFO-REF7563 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7549 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7550 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7551 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7553 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7555 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7557 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF7558 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7560 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7563 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7552 A)
                                            (B-REF7554 B)
                                            (S-REF7556 S)
                                            (WORK-REF7559 WORK)
                                            (RWORK-REF7561 RWORK)
                                            (IWORK-REF7562 IWORK))
      (%%CGELSD M-REF7549 N-REF7550 NRHS-REF7551 A-REF7552 LDA-REF7553
       B-REF7554 LDB-REF7555 S-REF7556 RCOND-REF7557 RANK-REF7558
       WORK-REF7559 LWORK-REF7560 RWORK-REF7561 IWORK-REF7562
       INFO-REF7563))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQR5 "zlaqr5_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (KACC22 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NSHFTS :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS)
   (LDH :FOREIGN-ADDRESS) (ILOZ :FOREIGN-ADDRESS)
   (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS)
   (LDWV :FOREIGN-ADDRESS) (NH :FOREIGN-ADDRESS) (WH :FOREIGN-ADDRESS)
   (LDWH :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQR5
    (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS S H LDH ILOZ IHIZ Z LDZ V
     LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF7564 ':INT32)
                              (WANTZ-REF7565 ':INT32)
                              (KACC22-REF7566 ':INT32)
                              (N-REF7567 ':INT32)
                              (KTOP-REF7568 ':INT32)
                              (KBOT-REF7569 ':INT32)
                              (NSHFTS-REF7570 ':INT32)
                              (LDH-REF7573 ':INT32)
                              (ILOZ-REF7574 ':INT32)
                              (IHIZ-REF7575 ':INT32)
                              (LDZ-REF7577 ':INT32)
                              (LDV-REF7579 ':INT32)
                              (LDU-REF7581 ':INT32)
                              (NV-REF7582 ':INT32)
                              (LDWV-REF7584 ':INT32)
                              (NH-REF7585 ':INT32)
                              (LDWH-REF7587 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF7564 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF7565 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF7566 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7567 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF7568 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF7569 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF7570 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7573 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF7574 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF7575 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7577 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF7579 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF7581 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF7582 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF7584 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF7585 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF7587 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF7571 S)
                                            (H-REF7572 H)
                                            (Z-REF7576 Z)
                                            (V-REF7578 V)
                                            (U-REF7580 U)
                                            (WV-REF7583 WV)
                                            (WH-REF7586 WH))
      (%%ZLAQR5 WANTT-REF7564 WANTZ-REF7565 KACC22-REF7566 N-REF7567
       KTOP-REF7568 KBOT-REF7569 NSHFTS-REF7570 S-REF7571 H-REF7572
       LDH-REF7573 ILOZ-REF7574 IHIZ-REF7575 Z-REF7576 LDZ-REF7577
       V-REF7578 LDV-REF7579 U-REF7580 LDU-REF7581 NV-REF7582
       WV-REF7583 LDWV-REF7584 NH-REF7585 WH-REF7586 LDWH-REF7587))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLACP2 "clacp2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLACP2 (UPLO M N A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLACP2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7589 ':INT32) (N-REF7590 ':INT32)
                              (LDA-REF7592 ':INT32)
                              (LDB-REF7594 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7589 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7590 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7592 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7594 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7591 A)
                                            (B-REF7593 B))
      (%%CLACP2 UPLO M-REF7589 N-REF7590 A-REF7591 LDA-REF7592
       B-REF7593 LDB-REF7594))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRS_ROOK "zsytrs_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7596 ':INT32)
                              (NRHS-REF7597 ':INT32)
                              (LDA-REF7599 ':INT32)
                              (LDB-REF7602 ':INT32)
                              (INFO-REF7603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7596 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7597 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7599 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7602 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7603 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7598 A)
                                            (IPIV-REF7600 IPIV)
                                            (B-REF7601 B))
      (%%ZSYTRS_ROOK UPLO N-REF7596 NRHS-REF7597 A-REF7598 LDA-REF7599
       IPIV-REF7600 B-REF7601 LDB-REF7602 INFO-REF7603))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMQL "dormql_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMQL
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMQL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7606 ':INT32) (N-REF7607 ':INT32)
                              (K-REF7608 ':INT32) (LDA-REF7610 ':INT32)
                              (LDC-REF7613 ':INT32)
                              (LWORK-REF7615 ':INT32)
                              (INFO-REF7616 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7606 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7607 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7608 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7610 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7613 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7615 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7616 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7609 A)
                                            (TAU-REF7611 TAU)
                                            (C-REF7612 C)
                                            (WORK-REF7614 WORK))
      (%%DORMQL SIDE TRANS M-REF7606 N-REF7607 K-REF7608 A-REF7609
       LDA-REF7610 TAU-REF7611 C-REF7612 LDC-REF7613 WORK-REF7614
       LWORK-REF7615 INFO-REF7616))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEBRD "zgebrd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEBRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7617 ':INT32) (N-REF7618 ':INT32)
                              (LDA-REF7620 ':INT32)
                              (LWORK-REF7626 ':INT32)
                              (INFO-REF7627 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7617 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7618 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7620 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7626 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7627 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7619 A)
                                            (D-REF7621 D)
                                            (E-REF7622 E)
                                            (TAUQ-REF7623 TAUQ)
                                            (TAUP-REF7624 TAUP)
                                            (WORK-REF7625 WORK))
      (%%ZGEBRD M-REF7617 N-REF7618 A-REF7619 LDA-REF7620 D-REF7621
       E-REF7622 TAUQ-REF7623 TAUP-REF7624 WORK-REF7625 LWORK-REF7626
       INFO-REF7627))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTD2 "dsytd2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTD2 (UPLO N A LDA D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTD2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7629 ':INT32) (LDA-REF7631 ':INT32)
                              (INFO-REF7635 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7629 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7631 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7635 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7630 A)
                                            (D-REF7632 D)
                                            (E-REF7633 E)
                                            (TAU-REF7634 TAU))
      (%%DSYTD2 UPLO N-REF7629 A-REF7630 LDA-REF7631 D-REF7632
       E-REF7633 TAU-REF7634 INFO-REF7635))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILADLR "iladlr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILADLR (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILADLR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7636 ':INT32) (N-REF7637 ':INT32)
                              (LDA-REF7639 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7636 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7637 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7639 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7638 A))
      (%%ILADLR M-REF7636 N-REF7637 A-REF7638 LDA-REF7639))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRRFS "dtrrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRRFS
    (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK IWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7643 ':INT32)
                              (NRHS-REF7644 ':INT32)
                              (LDA-REF7646 ':INT32)
                              (LDB-REF7648 ':INT32)
                              (LDX-REF7650 ':INT32)
                              (INFO-REF7655 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7643 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7644 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7646 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7648 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7650 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7655 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7645 A)
                                            (B-REF7647 B)
                                            (X-REF7649 X)
                                            (FERR-REF7651 FERR)
                                            (BERR-REF7652 BERR)
                                            (WORK-REF7653 WORK)
                                            (IWORK-REF7654 IWORK))
      (%%DTRRFS UPLO TRANS DIAG N-REF7643 NRHS-REF7644 A-REF7645
       LDA-REF7646 B-REF7647 LDB-REF7648 X-REF7649 LDX-REF7650
       FERR-REF7651 BERR-REF7652 WORK-REF7653 IWORK-REF7654
       INFO-REF7655))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEMQR "zgemqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (TSIZE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEMQR
    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7658 ':INT32) (N-REF7659 ':INT32)
                              (K-REF7660 ':INT32) (LDA-REF7662 ':INT32)
                              (TSIZE-REF7664 ':INT32)
                              (LDC-REF7666 ':INT32)
                              (LWORK-REF7668 ':INT32)
                              (INFO-REF7669 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7658 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7659 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7660 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7662 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF7664 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7666 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7668 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7669 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7661 A)
                                            (T-REF7663 T)
                                            (C-REF7665 C)
                                            (WORK-REF7667 WORK))
      (%%ZGEMQR SIDE TRANS M-REF7658 N-REF7659 K-REF7660 A-REF7661
       LDA-REF7662 T-REF7663 TSIZE-REF7664 C-REF7665 LDC-REF7666
       WORK-REF7667 LWORK-REF7668 INFO-REF7669))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTRTRS "ctrtrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTRTRS (UPLO TRANS DIAG N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7673 ':INT32)
                              (NRHS-REF7674 ':INT32)
                              (LDA-REF7676 ':INT32)
                              (LDB-REF7678 ':INT32)
                              (INFO-REF7679 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7673 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7674 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7676 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7678 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7679 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7675 A)
                                            (B-REF7677 B))
      (%%CTRTRS UPLO TRANS DIAG N-REF7673 NRHS-REF7674 A-REF7675
       LDA-REF7676 B-REF7677 LDB-REF7678 INFO-REF7679))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPTRF "zhptrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPTRF (UPLO N AP IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7681 ':INT32)
                              (INFO-REF7684 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7681 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7684 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7682 AP)
                                            (IPIV-REF7683 IPIV))
      (%%ZHPTRF UPLO N-REF7681 AP-REF7682 IPIV-REF7683 INFO-REF7684))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SLA_PORFSX_EXTENDED "sla_porfsx_extended_")
  ((PREC_TYPE :FOREIGN-ADDRESS)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (COLEQU :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (LDY :FOREIGN-ADDRESS)
   (BERR_OUT :FOREIGN-ADDRESS) (N_NORMS :FOREIGN-ADDRESS)
   (ERR_BNDS_NORM :FOREIGN-ADDRESS) (ERR_BNDS_COMP :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS) (DY :FOREIGN-ADDRESS)
   (Y_TAIL :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (ITHRESH :FOREIGN-ADDRESS) (RTHRESH :FOREIGN-ADDRESS)
   (DZ_UB :FOREIGN-ADDRESS) (IGNORE_CWISE :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_PORFSX_EXTENDED
    (PREC_TYPE UPLO N NRHS A LDA AF LDAF COLEQU C B LDB Y LDY BERR_OUT
     N_NORMS ERR_BNDS_NORM ERR_BNDS_COMP RES AYB DY Y_TAIL RCOND
     ITHRESH RTHRESH DZ_UB IGNORE_CWISE INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORFSX_EXTENDED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PREC_TYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) COLEQU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR_OUT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_NORMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y_TAIL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTHRESH)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT DZ_UB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IGNORE_CWISE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((PREC_TYPE-REF7685 ':INT32)
                              (N-REF7687 ':INT32)
                              (NRHS-REF7688 ':INT32)
                              (LDA-REF7690 ':INT32)
                              (LDAF-REF7692 ':INT32)
                              (COLEQU-REF7693 ':INT32)
                              (LDB-REF7696 ':INT32)
                              (LDY-REF7698 ':INT32)
                              (N_NORMS-REF7700 ':INT32)
                              (RCOND-REF7707 ':FLOAT)
                              (ITHRESH-REF7708 ':INT32)
                              (RTHRESH-REF7709 ':FLOAT)
                              (DZ_UB-REF7710 ':FLOAT)
                              (IGNORE_CWISE-REF7711 ':INT32)
                              (INFO-REF7712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF PREC_TYPE-REF7685 :INT32)
                      PREC_TYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7687 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7688 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7690 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF7692 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLEQU-REF7693 :INT32) COLEQU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7696 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF7698 :INT32) LDY)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_NORMS-REF7700 :INT32) N_NORMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7707 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITHRESH-REF7708 :INT32) ITHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTHRESH-REF7709 :FLOAT) RTHRESH)
    (COMMON-LISP:SETF (CFFI:MEM-REF DZ_UB-REF7710 :FLOAT) DZ_UB)
    (COMMON-LISP:SETF (CFFI:MEM-REF IGNORE_CWISE-REF7711 :INT32)
                      IGNORE_CWISE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7689 A)
                                            (AF-REF7691 AF)
                                            (C-REF7694 C)
                                            (B-REF7695 B)
                                            (Y-REF7697 Y)
                                            (BERR_OUT-REF7699 BERR_OUT)
                                            (ERR_BNDS_NORM-REF7701
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF7702
                                             ERR_BNDS_COMP)
                                            (RES-REF7703 RES)
                                            (AYB-REF7704 AYB)
                                            (DY-REF7705 DY)
                                            (Y_TAIL-REF7706 Y_TAIL))
      (%%SLA_PORFSX_EXTENDED PREC_TYPE-REF7685 UPLO N-REF7687
       NRHS-REF7688 A-REF7689 LDA-REF7690 AF-REF7691 LDAF-REF7692
       COLEQU-REF7693 C-REF7694 B-REF7695 LDB-REF7696 Y-REF7697
       LDY-REF7698 BERR_OUT-REF7699 N_NORMS-REF7700
       ERR_BNDS_NORM-REF7701 ERR_BNDS_COMP-REF7702 RES-REF7703
       AYB-REF7704 DY-REF7705 Y_TAIL-REF7706 RCOND-REF7707
       ITHRESH-REF7708 RTHRESH-REF7709 DZ_UB-REF7710
       IGNORE_CWISE-REF7711 INFO-REF7712))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYEVX_2STAGE "dsyevx_2stage_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYEVX_2STAGE
    (JOBZ RANGE UPLO N A LDA VL VU IL IU ABSTOL M W Z LDZ WORK LWORK
     IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYEVX_2STAGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7716 ':INT32) (LDA-REF7718 ':INT32)
                              (VL-REF7719 ':DOUBLE)
                              (VU-REF7720 ':DOUBLE)
                              (IL-REF7721 ':INT32) (IU-REF7722 ':INT32)
                              (ABSTOL-REF7723 ':DOUBLE)
                              (M-REF7724 ':INT32) (LDZ-REF7727 ':INT32)
                              (LWORK-REF7729 ':INT32)
                              (INFO-REF7732 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7716 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7718 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF7719 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF7720 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF7721 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF7722 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7723 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7724 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7727 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7729 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7732 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7717 A)
                                            (W-REF7725 W)
                                            (Z-REF7726 Z)
                                            (WORK-REF7728 WORK)
                                            (IWORK-REF7730 IWORK)
                                            (IFAIL-REF7731 IFAIL))
      (%%DSYEVX_2STAGE JOBZ RANGE UPLO N-REF7716 A-REF7717 LDA-REF7718
       VL-REF7719 VU-REF7720 IL-REF7721 IU-REF7722 ABSTOL-REF7723
       M-REF7724 W-REF7725 Z-REF7726 LDZ-REF7727 WORK-REF7728
       LWORK-REF7729 IWORK-REF7730 IFAIL-REF7731 INFO-REF7732))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTRTI2 "ctrti2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTRTI2 (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRTI2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7735 ':INT32) (LDA-REF7737 ':INT32)
                              (INFO-REF7738 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7735 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7737 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7738 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7736 A))
      (%%CTRTI2 UPLO DIAG N-REF7735 A-REF7736 LDA-REF7737
       INFO-REF7738))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASQ1 "dlasq1_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASQ1 (N D E WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7739 ':INT32)
                              (INFO-REF7743 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7739 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7743 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7740 D)
                                            (E-REF7741 E)
                                            (WORK-REF7742 WORK))
      (%%DLASQ1 N-REF7739 D-REF7740 E-REF7741 WORK-REF7742
       INFO-REF7743))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYSV_AA "ssysv_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYSV_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYSV_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7745 ':INT32)
                              (NRHS-REF7746 ':INT32)
                              (LDA-REF7748 ':INT32)
                              (LDB-REF7751 ':INT32)
                              (LWORK-REF7753 ':INT32)
                              (INFO-REF7754 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7745 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7746 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7748 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7751 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7753 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7754 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7747 A)
                                            (IPIV-REF7749 IPIV)
                                            (B-REF7750 B)
                                            (WORK-REF7752 WORK))
      (%%SSYSV_AA UPLO N-REF7745 NRHS-REF7746 A-REF7747 LDA-REF7748
       IPIV-REF7749 B-REF7750 LDB-REF7751 WORK-REF7752 LWORK-REF7753
       INFO-REF7754))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYCON_3 "dsycon_3_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYCON_3
    (UPLO N A LDA E IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON_3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7756 ':INT32) (LDA-REF7758 ':INT32)
                              (ANORM-REF7761 ':DOUBLE)
                              (RCOND-REF7762 ':DOUBLE)
                              (INFO-REF7765 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7756 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7758 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF7761 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7762 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7765 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7757 A)
                                            (E-REF7759 E)
                                            (IPIV-REF7760 IPIV)
                                            (WORK-REF7763 WORK)
                                            (IWORK-REF7764 IWORK))
      (%%DSYCON_3 UPLO N-REF7756 A-REF7757 LDA-REF7758 E-REF7759
       IPIV-REF7760 ANORM-REF7761 RCOND-REF7762 WORK-REF7763
       IWORK-REF7764 INFO-REF7765))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNGBR "zungbr_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNGBR (VECT M N K A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNGBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7767 ':INT32) (N-REF7768 ':INT32)
                              (K-REF7769 ':INT32) (LDA-REF7771 ':INT32)
                              (LWORK-REF7774 ':INT32)
                              (INFO-REF7775 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7767 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7768 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7769 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7771 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7774 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7775 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7770 A)
                                            (TAU-REF7772 TAU)
                                            (WORK-REF7773 WORK))
      (%%ZUNGBR VECT M-REF7767 N-REF7768 K-REF7769 A-REF7770
       LDA-REF7771 TAU-REF7772 WORK-REF7773 LWORK-REF7774
       INFO-REF7775))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYTRI2 "ssytri2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYTRI2 (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYTRI2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7777 ':INT32) (LDA-REF7779 ':INT32)
                              (LWORK-REF7782 ':INT32)
                              (INFO-REF7783 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7777 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7779 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7782 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7783 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7778 A)
                                            (IPIV-REF7780 IPIV)
                                            (WORK-REF7781 WORK))
      (%%SSYTRI2 UPLO N-REF7777 A-REF7778 LDA-REF7779 IPIV-REF7780
       WORK-REF7781 LWORK-REF7782 INFO-REF7783))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARRB "dlarrb_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (LLD :FOREIGN-ADDRESS)
   (IFIRST :FOREIGN-ADDRESS) (ILAST :FOREIGN-ADDRESS)
   (RTOL1 :FOREIGN-ADDRESS) (RTOL2 :FOREIGN-ADDRESS)
   (OFFSET :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WGAP :FOREIGN-ADDRESS) (WERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (PIVMIN :FOREIGN-ADDRESS) (SPDIAM :FOREIGN-ADDRESS)
   (TWIST :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARRB
    (N D LLD IFIRST ILAST RTOL1 RTOL2 OFFSET W WGAP WERR WORK IWORK
     PIVMIN SPDIAM TWIST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARRB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LLD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFIRST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILAST)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RTOL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) OFFSET)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SPDIAM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TWIST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7784 ':INT32)
                              (IFIRST-REF7787 ':INT32)
                              (ILAST-REF7788 ':INT32)
                              (RTOL1-REF7789 ':DOUBLE)
                              (RTOL2-REF7790 ':DOUBLE)
                              (OFFSET-REF7791 ':INT32)
                              (PIVMIN-REF7797 ':DOUBLE)
                              (SPDIAM-REF7798 ':DOUBLE)
                              (TWIST-REF7799 ':INT32)
                              (INFO-REF7800 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7784 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFIRST-REF7787 :INT32) IFIRST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILAST-REF7788 :INT32) ILAST)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF7789 :DOUBLE) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF7790 :DOUBLE) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF OFFSET-REF7791 :INT32) OFFSET)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7797 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SPDIAM-REF7798 :DOUBLE) SPDIAM)
    (COMMON-LISP:SETF (CFFI:MEM-REF TWIST-REF7799 :INT32) TWIST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7800 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7785 D)
                                            (LLD-REF7786 LLD)
                                            (W-REF7792 W)
                                            (WGAP-REF7793 WGAP)
                                            (WERR-REF7794 WERR)
                                            (WORK-REF7795 WORK)
                                            (IWORK-REF7796 IWORK))
      (%%DLARRB N-REF7784 D-REF7785 LLD-REF7786 IFIRST-REF7787
       ILAST-REF7788 RTOL1-REF7789 RTOL2-REF7790 OFFSET-REF7791
       W-REF7792 WGAP-REF7793 WERR-REF7794 WORK-REF7795 IWORK-REF7796
       PIVMIN-REF7797 SPDIAM-REF7798 TWIST-REF7799 INFO-REF7800))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTGSYL "dtgsyl_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (IJOB :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (LDD :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (LDE :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTGSYL
    (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE DIF WORK
     LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTGSYL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF7802 ':INT32)
                              (M-REF7803 ':INT32) (N-REF7804 ':INT32)
                              (LDA-REF7806 ':INT32)
                              (LDB-REF7808 ':INT32)
                              (LDC-REF7810 ':INT32)
                              (LDD-REF7812 ':INT32)
                              (LDE-REF7814 ':INT32)
                              (LDF-REF7816 ':INT32)
                              (SCALE-REF7817 ':DOUBLE)
                              (DIF-REF7818 ':DOUBLE)
                              (LWORK-REF7820 ':INT32)
                              (INFO-REF7822 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF7802 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7803 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7804 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7806 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7808 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF7810 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF7812 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF7814 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF7816 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF7817 :DOUBLE) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIF-REF7818 :DOUBLE) DIF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7820 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7822 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7805 A)
                                            (B-REF7807 B)
                                            (C-REF7809 C)
                                            (D-REF7811 D)
                                            (E-REF7813 E)
                                            (F-REF7815 F)
                                            (WORK-REF7819 WORK)
                                            (IWORK-REF7821 IWORK))
      (%%DTGSYL TRANS IJOB-REF7802 M-REF7803 N-REF7804 A-REF7805
       LDA-REF7806 B-REF7807 LDB-REF7808 C-REF7809 LDC-REF7810
       D-REF7811 LDD-REF7812 E-REF7813 LDE-REF7814 F-REF7815
       LDF-REF7816 SCALE-REF7817 DIF-REF7818 WORK-REF7819 LWORK-REF7820
       IWORK-REF7821 INFO-REF7822))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORG2L "dorg2l_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORG2L (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORG2L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7823 ':INT32) (N-REF7824 ':INT32)
                              (K-REF7825 ':INT32) (LDA-REF7827 ':INT32)
                              (INFO-REF7830 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7823 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7824 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7825 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7827 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7830 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7826 A)
                                            (TAU-REF7828 TAU)
                                            (WORK-REF7829 WORK))
      (%%DORG2L M-REF7823 N-REF7824 K-REF7825 A-REF7826 LDA-REF7827
       TAU-REF7828 WORK-REF7829 INFO-REF7830))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DISNAN "disnan_")
  ((DIN :FOREIGN-ADDRESS)) :RETURNING
  (:INT (COMMON-LISP:SIGNED-BYTE 32)) :RELEASE-HEAP :NEVER :ALLOW-GC
  :NEVER)

(COMMON-LISP:DEFUN %DISNAN (DIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DISNAN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((DIN-REF7831 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN-REF7831 :DOUBLE) DIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DISNAN DIN-REF7831))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTFTTR "ctfttr_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ARF :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTFTTR (TRANSR UPLO N ARF A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTFTTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ARF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7834 ':INT32) (LDA-REF7837 ':INT32)
                              (INFO-REF7838 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7834 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7837 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7838 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF7835 ARF)
                                            (A-REF7836 A))
      (%%CTFTTR TRANSR UPLO N-REF7834 ARF-REF7835 A-REF7836 LDA-REF7837
       INFO-REF7838))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAEDA "slaeda_")
  ((N :FOREIGN-ADDRESS) (TLVLS :FOREIGN-ADDRESS)
   (CURLVL :FOREIGN-ADDRESS) (CURPBM :FOREIGN-ADDRESS)
   (PRMPTR :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (QPTR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (ZTEMP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAEDA
    (N TLVLS CURLVL CURPBM PRMPTR PERM GIVPTR GIVCOL GIVNUM Q QPTR Z
     ZTEMP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TLVLS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURLVL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CURPBM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PRMPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    QPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ZTEMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7839 ':INT32)
                              (TLVLS-REF7840 ':INT32)
                              (CURLVL-REF7841 ':INT32)
                              (CURPBM-REF7842 ':INT32)
                              (INFO-REF7852 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7839 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF TLVLS-REF7840 :INT32) TLVLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURLVL-REF7841 :INT32) CURLVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF CURPBM-REF7842 :INT32) CURPBM)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7852 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((PRMPTR-REF7843 PRMPTR)
                                            (PERM-REF7844 PERM)
                                            (GIVPTR-REF7845 GIVPTR)
                                            (GIVCOL-REF7846 GIVCOL)
                                            (GIVNUM-REF7847 GIVNUM)
                                            (Q-REF7848 Q)
                                            (QPTR-REF7849 QPTR)
                                            (Z-REF7850 Z)
                                            (ZTEMP-REF7851 ZTEMP))
      (%%SLAEDA N-REF7839 TLVLS-REF7840 CURLVL-REF7841 CURPBM-REF7842
       PRMPTR-REF7843 PERM-REF7844 GIVPTR-REF7845 GIVCOL-REF7846
       GIVNUM-REF7847 Q-REF7848 QPTR-REF7849 Z-REF7850 ZTEMP-REF7851
       INFO-REF7852))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTF2_RK "csytf2_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTF2_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7854 ':INT32) (LDA-REF7856 ':INT32)
                              (INFO-REF7859 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7854 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7856 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7859 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7855 A)
                                            (E-REF7857 E)
                                            (IPIV-REF7858 IPIV))
      (%%CSYTF2_RK UPLO N-REF7854 A-REF7855 LDA-REF7856 E-REF7857
       IPIV-REF7858 INFO-REF7859))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYCON_ROOK "dsycon_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYCON_ROOK
    (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYCON_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7861 ':INT32) (LDA-REF7863 ':INT32)
                              (ANORM-REF7865 ':DOUBLE)
                              (RCOND-REF7866 ':DOUBLE)
                              (INFO-REF7869 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7861 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7863 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF7865 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF7866 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7869 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7862 A)
                                            (IPIV-REF7864 IPIV)
                                            (WORK-REF7867 WORK)
                                            (IWORK-REF7868 IWORK))
      (%%DSYCON_ROOK UPLO N-REF7861 A-REF7862 LDA-REF7863 IPIV-REF7864
       ANORM-REF7865 RCOND-REF7866 WORK-REF7867 IWORK-REF7868
       INFO-REF7869))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSTEV "sstev_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSTEV (JOBZ N D E Z LDZ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSTEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7871 ':INT32) (LDZ-REF7875 ':INT32)
                              (INFO-REF7877 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7871 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7875 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7877 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7872 D)
                                            (E-REF7873 E)
                                            (Z-REF7874 Z)
                                            (WORK-REF7876 WORK))
      (%%SSTEV JOBZ N-REF7871 D-REF7872 E-REF7873 Z-REF7874 LDZ-REF7875
       WORK-REF7876 INFO-REF7877))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGELS "cgels_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGELS (TRANS M N NRHS A LDA B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGELS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7879 ':INT32) (N-REF7880 ':INT32)
                              (NRHS-REF7881 ':INT32)
                              (LDA-REF7883 ':INT32)
                              (LDB-REF7885 ':INT32)
                              (LWORK-REF7887 ':INT32)
                              (INFO-REF7888 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7879 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7880 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF7881 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7883 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF7885 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7887 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7888 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7882 A)
                                            (B-REF7884 B)
                                            (WORK-REF7886 WORK))
      (%%CGELS TRANS M-REF7879 N-REF7880 NRHS-REF7881 A-REF7882
       LDA-REF7883 B-REF7884 LDB-REF7885 WORK-REF7886 LWORK-REF7887
       INFO-REF7888))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASRT "dlasrt_")
  ((ID (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASRT (ID N D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASRT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING ID)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7890 ':INT32)
                              (INFO-REF7892 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7890 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7892 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7891 D))
      (%%DLASRT ID N-REF7890 D-REF7891 INFO-REF7892))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPTTF "ztpttf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (ARF :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    ARF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7895 ':INT32)
                              (INFO-REF7898 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7895 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7898 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF7896 AP)
                                            (ARF-REF7897 ARF))
      (%%ZTPTTF TRANSR UPLO N-REF7895 AP-REF7896 ARF-REF7897
       INFO-REF7898))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORBDB2 "sorbdb2_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORBDB2
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7899 ':INT32) (P-REF7900 ':INT32)
                              (Q-REF7901 ':INT32)
                              (LDX11-REF7903 ':INT32)
                              (LDX21-REF7905 ':INT32)
                              (LWORK-REF7912 ':INT32)
                              (INFO-REF7913 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7899 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF7900 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF7901 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF7903 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF7905 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7912 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7913 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF7902 X11)
                                            (X21-REF7904 X21)
                                            (THETA-REF7906 THETA)
                                            (PHI-REF7907 PHI)
                                            (TAUP1-REF7908 TAUP1)
                                            (TAUP2-REF7909 TAUP2)
                                            (TAUQ1-REF7910 TAUQ1)
                                            (WORK-REF7911 WORK))
      (%%SORBDB2 M-REF7899 P-REF7900 Q-REF7901 X11-REF7902
       LDX11-REF7903 X21-REF7904 LDX21-REF7905 THETA-REF7906
       PHI-REF7907 TAUP1-REF7908 TAUP2-REF7909 TAUQ1-REF7910
       WORK-REF7911 LWORK-REF7912 INFO-REF7913))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAEBZ "slaebz_")
  ((IJOB :FOREIGN-ADDRESS) (NITMAX :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (MMAX :FOREIGN-ADDRESS) (MINP :FOREIGN-ADDRESS)
   (NBMIN :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS)
   (RELTOL :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (E2 :FOREIGN-ADDRESS)
   (NVAL :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (MOUT :FOREIGN-ADDRESS) (NAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAEBZ
    (IJOB NITMAX N MMAX MINP NBMIN ABSTOL RELTOL PIVMIN D E E2 NVAL AB
     C MOUT NAB WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAEBZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NITMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MINP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NBMIN)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RELTOL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    NVAL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MOUT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    NAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF7914 ':INT32)
                              (NITMAX-REF7915 ':INT32)
                              (N-REF7916 ':INT32)
                              (MMAX-REF7917 ':INT32)
                              (MINP-REF7918 ':INT32)
                              (NBMIN-REF7919 ':INT32)
                              (ABSTOL-REF7920 ':FLOAT)
                              (RELTOL-REF7921 ':FLOAT)
                              (PIVMIN-REF7922 ':FLOAT)
                              (MOUT-REF7929 ':INT32)
                              (INFO-REF7933 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF7914 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF7915 :INT32) NITMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7916 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF7917 :INT32) MMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF7918 :INT32) MINP)
    (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF7919 :INT32) NBMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF7920 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF7921 :FLOAT) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF7922 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF7929 :INT32) MOUT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7933 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7923 D)
                                            (E-REF7924 E)
                                            (E2-REF7925 E2)
                                            (NVAL-REF7926 NVAL)
                                            (AB-REF7927 AB)
                                            (C-REF7928 C)
                                            (NAB-REF7930 NAB)
                                            (WORK-REF7931 WORK)
                                            (IWORK-REF7932 IWORK))
      (%%SLAEBZ IJOB-REF7914 NITMAX-REF7915 N-REF7916 MMAX-REF7917
       MINP-REF7918 NBMIN-REF7919 ABSTOL-REF7920 RELTOL-REF7921
       PIVMIN-REF7922 D-REF7923 E-REF7924 E2-REF7925 NVAL-REF7926
       AB-REF7927 C-REF7928 MOUT-REF7929 NAB-REF7930 WORK-REF7931
       IWORK-REF7932 INFO-REF7933))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQR0 "slaqr0_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WR :FOREIGN-ADDRESS)
   (WI :FOREIGN-ADDRESS) (ILOZ :FOREIGN-ADDRESS)
   (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQR0
    (WANTT WANTZ N ILO IHI H LDH WR WI ILOZ IHIZ Z LDZ WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WI)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF7934 ':INT32)
                              (WANTZ-REF7935 ':INT32)
                              (N-REF7936 ':INT32) (ILO-REF7937 ':INT32)
                              (IHI-REF7938 ':INT32)
                              (LDH-REF7940 ':INT32)
                              (ILOZ-REF7943 ':INT32)
                              (IHIZ-REF7944 ':INT32)
                              (LDZ-REF7946 ':INT32)
                              (LWORK-REF7948 ':INT32)
                              (INFO-REF7949 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF7934 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF7935 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF7937 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF7938 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF7940 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF7943 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF7944 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF7946 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF7948 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7949 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF7939 H)
                                            (WR-REF7941 WR)
                                            (WI-REF7942 WI)
                                            (Z-REF7945 Z)
                                            (WORK-REF7947 WORK))
      (%%SLAQR0 WANTT-REF7934 WANTZ-REF7935 N-REF7936 ILO-REF7937
       IHI-REF7938 H-REF7939 LDH-REF7940 WR-REF7941 WI-REF7942
       ILOZ-REF7943 IHIZ-REF7944 Z-REF7945 LDZ-REF7946 WORK-REF7947
       LWORK-REF7948 INFO-REF7949))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPBTRF "zpbtrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPBTRF (UPLO N KD AB LDAB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7951 ':INT32) (KD-REF7952 ':INT32)
                              (LDAB-REF7954 ':INT32)
                              (INFO-REF7955 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7951 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF7952 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7954 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7955 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7953 AB))
      (%%ZPBTRF UPLO N-REF7951 KD-REF7952 AB-REF7953 LDAB-REF7954
       INFO-REF7955))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILAZLC "ilazlc_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILAZLC (M N A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAZLC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF7956 ':INT32) (N-REF7957 ':INT32)
                              (LDA-REF7959 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7956 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7957 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF7959 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF7958 A))
      (%%ILAZLC M-REF7956 N-REF7957 A-REF7958 LDA-REF7959))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPBEQU "dpbequ_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPBEQU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7961 ':INT32) (KD-REF7962 ':INT32)
                              (LDAB-REF7964 ':INT32)
                              (SCOND-REF7966 ':DOUBLE)
                              (AMAX-REF7967 ':DOUBLE)
                              (INFO-REF7968 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7961 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF7962 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF7964 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF7966 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF7967 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7968 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF7963 AB)
                                            (S-REF7965 S))
      (%%DPBEQU UPLO N-REF7961 KD-REF7962 AB-REF7963 LDAB-REF7964
       S-REF7965 SCOND-REF7966 AMAX-REF7967 INFO-REF7968))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED8 "dlaed8_")
  ((ICOMPQ :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (QSIZ :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (INDXQ :FOREIGN-ADDRESS)
   (RHO :FOREIGN-ADDRESS) (CUTPNT :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (DLAMDA :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (INDXP :FOREIGN-ADDRESS)
   (INDX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED8
    (ICOMPQ K N QSIZ D Q LDQ INDXQ RHO CUTPNT Z DLAMDA Q2 LDQ2 W PERM
     GIVPTR GIVCOL GIVNUM INDXP INDX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED8)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) QSIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CUTPNT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDXP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF7969 ':INT32)
                              (K-REF7970 ':INT32) (N-REF7971 ':INT32)
                              (QSIZ-REF7972 ':INT32)
                              (LDQ-REF7975 ':INT32)
                              (RHO-REF7977 ':DOUBLE)
                              (CUTPNT-REF7978 ':INT32)
                              (LDQ2-REF7982 ':INT32)
                              (GIVPTR-REF7985 ':INT32)
                              (INFO-REF7990 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF7969 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF7970 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7971 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF QSIZ-REF7972 :INT32) QSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF7975 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF7977 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF CUTPNT-REF7978 :INT32) CUTPNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF7982 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF7985 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF7990 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7973 D)
                                            (Q-REF7974 Q)
                                            (INDXQ-REF7976 INDXQ)
                                            (Z-REF7979 Z)
                                            (DLAMDA-REF7980 DLAMDA)
                                            (Q2-REF7981 Q2)
                                            (W-REF7983 W)
                                            (PERM-REF7984 PERM)
                                            (GIVCOL-REF7986 GIVCOL)
                                            (GIVNUM-REF7987 GIVNUM)
                                            (INDXP-REF7988 INDXP)
                                            (INDX-REF7989 INDX))
      (%%DLAED8 ICOMPQ-REF7969 K-REF7970 N-REF7971 QSIZ-REF7972
       D-REF7973 Q-REF7974 LDQ-REF7975 INDXQ-REF7976 RHO-REF7977
       CUTPNT-REF7978 Z-REF7979 DLAMDA-REF7980 Q2-REF7981 LDQ2-REF7982
       W-REF7983 PERM-REF7984 GIVPTR-REF7985 GIVCOL-REF7986
       GIVNUM-REF7987 INDXP-REF7988 INDX-REF7989 INFO-REF7990))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAPMR "dlapmr_")
  ((FORWRD :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAPMR (FORWRD M N X LDX K)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPMR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) FORWRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K))
  (CFFI:WITH-FOREIGN-OBJECTS ((FORWRD-REF7991 ':INT32)
                              (M-REF7992 ':INT32) (N-REF7993 ':INT32)
                              (LDX-REF7995 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF FORWRD-REF7991 :INT32) FORWRD)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF7992 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7993 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF7995 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF7994 X)
                                            (K-REF7996 K))
      (%%DLAPMR FORWRD-REF7991 M-REF7992 N-REF7993 X-REF7994
       LDX-REF7995 K-REF7996))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPTTRF "dpttrf_")
  ((N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPTTRF (N D E INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPTTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF7997 ':INT32)
                              (INFO-REF8000 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF7997 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8000 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF7998 D)
                                            (E-REF7999 E))
      (%%DPTTRF N-REF7997 D-REF7998 E-REF7999 INFO-REF8000))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAHEF_ROOK "clahef_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAHEF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8002 ':INT32) (NB-REF8003 ':INT32)
                              (KB-REF8004 ':INT32)
                              (LDA-REF8006 ':INT32)
                              (LDW-REF8009 ':INT32)
                              (INFO-REF8010 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8002 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8003 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8004 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8006 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8009 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8010 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8005 A)
                                            (IPIV-REF8007 IPIV)
                                            (W-REF8008 W))
      (%%CLAHEF_ROOK UPLO N-REF8002 NB-REF8003 KB-REF8004 A-REF8005
       LDA-REF8006 IPIV-REF8007 W-REF8008 LDW-REF8009 INFO-REF8010))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPOTRF "cpotrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPOTRF (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPOTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8012 ':INT32) (LDA-REF8014 ':INT32)
                              (INFO-REF8015 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8012 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8014 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8015 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8013 A))
      (%%CPOTRF UPLO N-REF8012 A-REF8013 LDA-REF8014 INFO-REF8015))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAED9 "dlaed9_")
  ((K :FOREIGN-ADDRESS) (KSTART :FOREIGN-ADDRESS)
   (KSTOP :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (RHO :FOREIGN-ADDRESS)
   (DLAMDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (LDS :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAED9
    (K KSTART KSTOP N D Q LDQ RHO DLAMDA W S LDS INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAED9)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTART)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KSTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RHO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DLAMDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((K-REF8016 ':INT32)
                              (KSTART-REF8017 ':INT32)
                              (KSTOP-REF8018 ':INT32)
                              (N-REF8019 ':INT32) (LDQ-REF8022 ':INT32)
                              (RHO-REF8023 ':DOUBLE)
                              (LDS-REF8027 ':INT32)
                              (INFO-REF8028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8016 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTART-REF8017 :INT32) KSTART)
    (COMMON-LISP:SETF (CFFI:MEM-REF KSTOP-REF8018 :INT32) KSTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8019 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8022 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF RHO-REF8023 :DOUBLE) RHO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDS-REF8027 :INT32) LDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8028 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8020 D)
                                            (Q-REF8021 Q)
                                            (DLAMDA-REF8024 DLAMDA)
                                            (W-REF8025 W)
                                            (S-REF8026 S))
      (%%DLAED9 K-REF8016 KSTART-REF8017 KSTOP-REF8018 N-REF8019
       D-REF8020 Q-REF8021 LDQ-REF8022 RHO-REF8023 DLAMDA-REF8024
       W-REF8025 S-REF8026 LDS-REF8027 INFO-REF8028))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGSVD3 "cggsvd3_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGSVD3
    (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV Q LDQ
     WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGSVD3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8032 ':INT32) (N-REF8033 ':INT32)
                              (P-REF8034 ':INT32) (K-REF8035 ':INT32)
                              (L-REF8036 ':INT32) (LDA-REF8038 ':INT32)
                              (LDB-REF8040 ':INT32)
                              (LDU-REF8044 ':INT32)
                              (LDV-REF8046 ':INT32)
                              (LDQ-REF8048 ':INT32)
                              (LWORK-REF8050 ':INT32)
                              (INFO-REF8053 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8032 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8033 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF8034 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8035 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8036 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8038 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8040 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8044 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8046 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8048 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8050 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8053 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8037 A)
                                            (B-REF8039 B)
                                            (ALPHA-REF8041 ALPHA)
                                            (BETA-REF8042 BETA)
                                            (U-REF8043 U)
                                            (V-REF8045 V)
                                            (Q-REF8047 Q)
                                            (WORK-REF8049 WORK)
                                            (RWORK-REF8051 RWORK)
                                            (IWORK-REF8052 IWORK))
      (%%CGGSVD3 JOBU JOBV JOBQ M-REF8032 N-REF8033 P-REF8034 K-REF8035
       L-REF8036 A-REF8037 LDA-REF8038 B-REF8039 LDB-REF8040
       ALPHA-REF8041 BETA-REF8042 U-REF8043 LDU-REF8044 V-REF8045
       LDV-REF8046 Q-REF8047 LDQ-REF8048 WORK-REF8049 LWORK-REF8050
       RWORK-REF8051 IWORK-REF8052 INFO-REF8053))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASYF_ROOK "dlasyf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASYF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8055 ':INT32) (NB-REF8056 ':INT32)
                              (KB-REF8057 ':INT32)
                              (LDA-REF8059 ':INT32)
                              (LDW-REF8062 ':INT32)
                              (INFO-REF8063 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8055 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8056 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8057 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8059 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8062 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8063 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8058 A)
                                            (IPIV-REF8060 IPIV)
                                            (W-REF8061 W))
      (%%DLASYF_ROOK UPLO N-REF8055 NB-REF8056 KB-REF8057 A-REF8058
       LDA-REF8059 IPIV-REF8060 W-REF8061 LDW-REF8062 INFO-REF8063))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTGSY2 "ctgsy2_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (IJOB :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (LDD :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (LDE :FOREIGN-ADDRESS) (F :FOREIGN-ADDRESS) (LDF :FOREIGN-ADDRESS)
   (SCALE :FOREIGN-ADDRESS) (RDSUM :FOREIGN-ADDRESS)
   (RDSCAL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTGSY2
    (TRANS IJOB M N A LDA B LDB C LDC D LDD E LDE F LDF SCALE RDSUM
     RDSCAL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTGSY2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    F)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDF)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSUM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RDSCAL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF8065 ':INT32)
                              (M-REF8066 ':INT32) (N-REF8067 ':INT32)
                              (LDA-REF8069 ':INT32)
                              (LDB-REF8071 ':INT32)
                              (LDC-REF8073 ':INT32)
                              (LDD-REF8075 ':INT32)
                              (LDE-REF8077 ':INT32)
                              (LDF-REF8079 ':INT32)
                              (SCALE-REF8080 ':FLOAT)
                              (RDSUM-REF8081 ':FLOAT)
                              (RDSCAL-REF8082 ':FLOAT)
                              (INFO-REF8083 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF8065 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8066 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8067 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8069 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8071 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8073 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDD-REF8075 :INT32) LDD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDE-REF8077 :INT32) LDE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDF-REF8079 :INT32) LDF)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF8080 :FLOAT) SCALE)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSUM-REF8081 :FLOAT) RDSUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RDSCAL-REF8082 :FLOAT) RDSCAL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8083 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8068 A)
                                            (B-REF8070 B)
                                            (C-REF8072 C)
                                            (D-REF8074 D)
                                            (E-REF8076 E)
                                            (F-REF8078 F))
      (%%CTGSY2 TRANS IJOB-REF8065 M-REF8066 N-REF8067 A-REF8068
       LDA-REF8069 B-REF8070 LDB-REF8071 C-REF8072 LDC-REF8073
       D-REF8074 LDD-REF8075 E-REF8076 LDE-REF8077 F-REF8078
       LDF-REF8079 SCALE-REF8080 RDSUM-REF8081 RDSCAL-REF8082
       INFO-REF8083))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLARRV "clarrv_")
  ((N :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (ISPLIT :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (DOL :FOREIGN-ADDRESS) (DOU :FOREIGN-ADDRESS)
   (MINRGP :FOREIGN-ADDRESS) (RTOL1 :FOREIGN-ADDRESS)
   (RTOL2 :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WERR :FOREIGN-ADDRESS) (WGAP :FOREIGN-ADDRESS)
   (IBLOCK :FOREIGN-ADDRESS) (INDEXW :FOREIGN-ADDRESS)
   (GERS :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLARRV
    (N VL VU D L PIVMIN ISPLIT M DOL DOU MINRGP RTOL1 RTOL2 W WERR WGAP
     IBLOCK INDEXW GERS Z LDZ ISUPPZ WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLARRV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) L)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISPLIT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) DOU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT MINRGP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL1)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RTOL2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WGAP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IBLOCK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    INDEXW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) GERS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8084 ':INT32) (VL-REF8085 ':FLOAT)
                              (VU-REF8086 ':FLOAT)
                              (PIVMIN-REF8089 ':FLOAT)
                              (M-REF8091 ':INT32) (DOL-REF8092 ':INT32)
                              (DOU-REF8093 ':INT32)
                              (MINRGP-REF8094 ':FLOAT)
                              (RTOL1-REF8095 ':FLOAT)
                              (RTOL2-REF8096 ':FLOAT)
                              (LDZ-REF8104 ':INT32)
                              (INFO-REF8108 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8084 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8085 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8086 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF8089 :FLOAT) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8091 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOL-REF8092 :INT32) DOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF DOU-REF8093 :INT32) DOU)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINRGP-REF8094 :FLOAT) MINRGP)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL1-REF8095 :FLOAT) RTOL1)
    (COMMON-LISP:SETF (CFFI:MEM-REF RTOL2-REF8096 :FLOAT) RTOL2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8104 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8108 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8087 D)
                                            (L-REF8088 L)
                                            (ISPLIT-REF8090 ISPLIT)
                                            (W-REF8097 W)
                                            (WERR-REF8098 WERR)
                                            (WGAP-REF8099 WGAP)
                                            (IBLOCK-REF8100 IBLOCK)
                                            (INDEXW-REF8101 INDEXW)
                                            (GERS-REF8102 GERS)
                                            (Z-REF8103 Z)
                                            (ISUPPZ-REF8105 ISUPPZ)
                                            (WORK-REF8106 WORK)
                                            (IWORK-REF8107 IWORK))
      (%%CLARRV N-REF8084 VL-REF8085 VU-REF8086 D-REF8087 L-REF8088
       PIVMIN-REF8089 ISPLIT-REF8090 M-REF8091 DOL-REF8092 DOU-REF8093
       MINRGP-REF8094 RTOL1-REF8095 RTOL2-REF8096 W-REF8097
       WERR-REF8098 WGAP-REF8099 IBLOCK-REF8100 INDEXW-REF8101
       GERS-REF8102 Z-REF8103 LDZ-REF8104 ISUPPZ-REF8105 WORK-REF8106
       IWORK-REF8107 INFO-REF8108))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGESVDQ "cgesvdq_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBP (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (NUMRANK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (CWORK :FOREIGN-ADDRESS)
   (LCWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGESVDQ
    (JOBA JOBP JOBR JOBU JOBV M N A LDA S U LDU V LDV NUMRANK IWORK
     LIWORK CWORK LCWORK RWORK LRWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGESVDQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NUMRANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    CWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LCWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8114 ':INT32) (N-REF8115 ':INT32)
                              (LDA-REF8117 ':INT32)
                              (LDU-REF8120 ':INT32)
                              (LDV-REF8122 ':INT32)
                              (NUMRANK-REF8123 ':INT32)
                              (LIWORK-REF8125 ':INT32)
                              (LCWORK-REF8127 ':INT32)
                              (LRWORK-REF8129 ':INT32)
                              (INFO-REF8130 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8114 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8115 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8117 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8120 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8122 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NUMRANK-REF8123 :INT32) NUMRANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF8125 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LCWORK-REF8127 :INT32) LCWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF8129 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8130 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8116 A)
                                            (S-REF8118 S)
                                            (U-REF8119 U)
                                            (V-REF8121 V)
                                            (IWORK-REF8124 IWORK)
                                            (CWORK-REF8126 CWORK)
                                            (RWORK-REF8128 RWORK))
      (%%CGESVDQ JOBA JOBP JOBR JOBU JOBV M-REF8114 N-REF8115 A-REF8116
       LDA-REF8117 S-REF8118 U-REF8119 LDU-REF8120 V-REF8121
       LDV-REF8122 NUMRANK-REF8123 IWORK-REF8124 LIWORK-REF8125
       CWORK-REF8126 LCWORK-REF8127 RWORK-REF8128 LRWORK-REF8129
       INFO-REF8130))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAUU2 "dlauu2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAUU2 (UPLO N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAUU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8132 ':INT32) (LDA-REF8134 ':INT32)
                              (INFO-REF8135 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8132 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8134 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8135 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8133 A))
      (%%DLAUU2 UPLO N-REF8132 A-REF8133 LDA-REF8134 INFO-REF8135))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBEQU "sgbequ_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBEQU
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBEQU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8136 ':INT32) (N-REF8137 ':INT32)
                              (KL-REF8138 ':INT32) (KU-REF8139 ':INT32)
                              (LDAB-REF8141 ':INT32)
                              (ROWCND-REF8144 ':FLOAT)
                              (COLCND-REF8145 ':FLOAT)
                              (AMAX-REF8146 ':FLOAT)
                              (INFO-REF8147 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8136 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8137 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8138 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8139 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8141 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8144 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8145 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8146 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8147 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8140 AB)
                                            (R-REF8142 R)
                                            (C-REF8143 C))
      (%%SGBEQU M-REF8136 N-REF8137 KL-REF8138 KU-REF8139 AB-REF8140
       LDAB-REF8141 R-REF8142 C-REF8143 ROWCND-REF8144 COLCND-REF8145
       AMAX-REF8146 INFO-REF8147))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETF2 "zhetf2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETF2 (UPLO N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETF2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8149 ':INT32) (LDA-REF8151 ':INT32)
                              (INFO-REF8153 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8149 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8151 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8153 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8150 A)
                                            (IPIV-REF8152 IPIV))
      (%%ZHETF2 UPLO N-REF8149 A-REF8150 LDA-REF8151 IPIV-REF8152
       INFO-REF8153))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBGVD "chbgvd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KA :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (BB :FOREIGN-ADDRESS)
   (LDBB :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBGVD
    (JOBZ UPLO N KA KB AB LDAB BB LDBB W Z LDZ WORK LWORK RWORK LRWORK
     IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBGVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8156 ':INT32) (KA-REF8157 ':INT32)
                              (KB-REF8158 ':INT32)
                              (LDAB-REF8160 ':INT32)
                              (LDBB-REF8162 ':INT32)
                              (LDZ-REF8165 ':INT32)
                              (LWORK-REF8167 ':INT32)
                              (LRWORK-REF8169 ':INT32)
                              (LIWORK-REF8171 ':INT32)
                              (INFO-REF8172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8156 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KA-REF8157 :INT32) KA)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8158 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8160 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBB-REF8162 :INT32) LDBB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8165 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8167 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF8169 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF8171 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8172 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8159 AB)
                                            (BB-REF8161 BB)
                                            (W-REF8163 W)
                                            (Z-REF8164 Z)
                                            (WORK-REF8166 WORK)
                                            (RWORK-REF8168 RWORK)
                                            (IWORK-REF8170 IWORK))
      (%%CHBGVD JOBZ UPLO N-REF8156 KA-REF8157 KB-REF8158 AB-REF8159
       LDAB-REF8160 BB-REF8161 LDBB-REF8162 W-REF8163 Z-REF8164
       LDZ-REF8165 WORK-REF8166 LWORK-REF8167 RWORK-REF8168
       LRWORK-REF8169 IWORK-REF8170 LIWORK-REF8171 INFO-REF8172))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANSB "dlansb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANSB (NORM UPLO N K AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANSB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8175 ':INT32) (K-REF8176 ':INT32)
                              (LDAB-REF8178 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8176 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8178 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8177 AB)
                                            (WORK-REF8179 WORK))
      (%%DLANSB NORM UPLO N-REF8175 K-REF8176 AB-REF8177 LDAB-REF8178
       WORK-REF8179))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRTTP "strttp_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRTTP (UPLO N A LDA AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8181 ':INT32) (LDA-REF8183 ':INT32)
                              (INFO-REF8185 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8181 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8183 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8185 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8182 A)
                                            (AP-REF8184 AP))
      (%%STRTTP UPLO N-REF8181 A-REF8182 LDA-REF8183 AP-REF8184
       INFO-REF8185))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPTRFS "sptrfs_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (DF :FOREIGN-ADDRESS) (EF :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPTRFS
    (N NRHS D E DF EF B LDB X LDX FERR BERR WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPTRFS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) EF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8186 ':INT32)
                              (NRHS-REF8187 ':INT32)
                              (LDB-REF8193 ':INT32)
                              (LDX-REF8195 ':INT32)
                              (INFO-REF8199 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8186 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8187 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8193 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8195 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8199 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8188 D)
                                            (E-REF8189 E)
                                            (DF-REF8190 DF)
                                            (EF-REF8191 EF)
                                            (B-REF8192 B)
                                            (X-REF8194 X)
                                            (FERR-REF8196 FERR)
                                            (BERR-REF8197 BERR)
                                            (WORK-REF8198 WORK))
      (%%SPTRFS N-REF8186 NRHS-REF8187 D-REF8188 E-REF8189 DF-REF8190
       EF-REF8191 B-REF8192 LDB-REF8193 X-REF8194 LDX-REF8195
       FERR-REF8196 BERR-REF8197 WORK-REF8198 INFO-REF8199))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQSP "zlaqsp_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQSP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8201 ':INT32)
                              (SCOND-REF8204 ':DOUBLE)
                              (AMAX-REF8205 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8201 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8204 :DOUBLE) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8205 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8202 AP)
                                            (S-REF8203 S))
      (%%ZLAQSP UPLO N-REF8201 AP-REF8202 S-REF8203 SCOND-REF8204
       AMAX-REF8205 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQGE "zlaqge_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8207 ':INT32) (N-REF8208 ':INT32)
                              (LDA-REF8210 ':INT32)
                              (ROWCND-REF8213 ':DOUBLE)
                              (COLCND-REF8214 ':DOUBLE)
                              (AMAX-REF8215 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8207 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8208 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8210 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8213 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8214 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8215 :DOUBLE) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8209 A)
                                            (R-REF8211 R)
                                            (C-REF8212 C))
      (%%ZLAQGE M-REF8207 N-REF8208 A-REF8209 LDA-REF8210 R-REF8211
       C-REF8212 ROWCND-REF8213 COLCND-REF8214 AMAX-REF8215 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRS2 "zsytrs2_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRS2 (UPLO N NRHS A LDA IPIV B LDB WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8218 ':INT32)
                              (NRHS-REF8219 ':INT32)
                              (LDA-REF8221 ':INT32)
                              (LDB-REF8224 ':INT32)
                              (INFO-REF8226 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8218 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8219 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8221 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8224 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8226 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8220 A)
                                            (IPIV-REF8222 IPIV)
                                            (B-REF8223 B)
                                            (WORK-REF8225 WORK))
      (%%ZSYTRS2 UPLO N-REF8218 NRHS-REF8219 A-REF8220 LDA-REF8221
       IPIV-REF8222 B-REF8223 LDB-REF8224 WORK-REF8225 INFO-REF8226))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLATRD "clatrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLATRD (UPLO N NB A LDA E TAU W LDW)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8228 ':INT32) (NB-REF8229 ':INT32)
                              (LDA-REF8231 ':INT32)
                              (LDW-REF8235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8228 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8229 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8231 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8235 :INT32) LDW)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8230 A)
                                            (E-REF8232 E)
                                            (TAU-REF8233 TAU)
                                            (W-REF8234 W))
      (%%CLATRD UPLO N-REF8228 NB-REF8229 A-REF8230 LDA-REF8231
       E-REF8232 TAU-REF8233 W-REF8234 LDW-REF8235))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPTSVX "zptsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (DF :FOREIGN-ADDRESS) (EF :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPTSVX
    (FACT N NRHS D E DF EF B LDB X LDX RCOND FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    EF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8237 ':INT32)
                              (NRHS-REF8238 ':INT32)
                              (LDB-REF8244 ':INT32)
                              (LDX-REF8246 ':INT32)
                              (RCOND-REF8247 ':DOUBLE)
                              (INFO-REF8252 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8237 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8238 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8244 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8246 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF8247 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8252 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8239 D)
                                            (E-REF8240 E)
                                            (DF-REF8241 DF)
                                            (EF-REF8242 EF)
                                            (B-REF8243 B)
                                            (X-REF8245 X)
                                            (FERR-REF8248 FERR)
                                            (BERR-REF8249 BERR)
                                            (WORK-REF8250 WORK)
                                            (RWORK-REF8251 RWORK))
      (%%ZPTSVX FACT N-REF8237 NRHS-REF8238 D-REF8239 E-REF8240
       DF-REF8241 EF-REF8242 B-REF8243 LDB-REF8244 X-REF8245
       LDX-REF8246 RCOND-REF8247 FERR-REF8248 BERR-REF8249 WORK-REF8250
       RWORK-REF8251 INFO-REF8252))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORMR2 "dormr2_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORMR2 (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORMR2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8255 ':INT32) (N-REF8256 ':INT32)
                              (K-REF8257 ':INT32) (LDA-REF8259 ':INT32)
                              (LDC-REF8262 ':INT32)
                              (INFO-REF8264 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8255 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8256 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8257 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8259 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8262 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8264 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8258 A)
                                            (TAU-REF8260 TAU)
                                            (C-REF8261 C)
                                            (WORK-REF8263 WORK))
      (%%DORMR2 SIDE TRANS M-REF8255 N-REF8256 K-REF8257 A-REF8258
       LDA-REF8259 TAU-REF8260 C-REF8261 LDC-REF8262 WORK-REF8263
       INFO-REF8264))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGBEQU "zgbequ_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGBEQU
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBEQU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8265 ':INT32) (N-REF8266 ':INT32)
                              (KL-REF8267 ':INT32) (KU-REF8268 ':INT32)
                              (LDAB-REF8270 ':INT32)
                              (ROWCND-REF8273 ':DOUBLE)
                              (COLCND-REF8274 ':DOUBLE)
                              (AMAX-REF8275 ':DOUBLE)
                              (INFO-REF8276 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8265 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8267 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8268 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8270 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8273 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8274 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8275 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8276 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8269 AB)
                                            (R-REF8271 R)
                                            (C-REF8272 C))
      (%%ZGBEQU M-REF8265 N-REF8266 KL-REF8267 KU-REF8268 AB-REF8269
       LDAB-REF8270 R-REF8271 C-REF8272 ROWCND-REF8273 COLCND-REF8274
       AMAX-REF8275 INFO-REF8276))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTPTTF "dtpttf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (ARF :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTPTTF (TRANSR UPLO N AP ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPTTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ARF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8279 ':INT32)
                              (INFO-REF8282 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8279 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8282 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8280 AP)
                                            (ARF-REF8281 ARF))
      (%%DTPTTF TRANSR UPLO N-REF8279 AP-REF8280 ARF-REF8281
       INFO-REF8282))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSTEGR "dstegr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (LIWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSTEGR
    (JOBZ RANGE N D E VL VU IL IU ABSTOL M W Z LDZ ISUPPZ WORK LWORK
     IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSTEGR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8285 ':INT32) (VL-REF8288 ':DOUBLE)
                              (VU-REF8289 ':DOUBLE)
                              (IL-REF8290 ':INT32) (IU-REF8291 ':INT32)
                              (ABSTOL-REF8292 ':DOUBLE)
                              (M-REF8293 ':INT32) (LDZ-REF8296 ':INT32)
                              (LWORK-REF8299 ':INT32)
                              (LIWORK-REF8301 ':INT32)
                              (INFO-REF8302 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8285 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8288 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8289 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8290 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8291 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF8292 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8293 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8296 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8299 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF8301 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8302 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8286 D)
                                            (E-REF8287 E)
                                            (W-REF8294 W)
                                            (Z-REF8295 Z)
                                            (ISUPPZ-REF8297 ISUPPZ)
                                            (WORK-REF8298 WORK)
                                            (IWORK-REF8300 IWORK))
      (%%DSTEGR JOBZ RANGE N-REF8285 D-REF8286 E-REF8287 VL-REF8288
       VU-REF8289 IL-REF8290 IU-REF8291 ABSTOL-REF8292 M-REF8293
       W-REF8294 Z-REF8295 LDZ-REF8296 ISUPPZ-REF8297 WORK-REF8298
       LWORK-REF8299 IWORK-REF8300 LIWORK-REF8301 INFO-REF8302))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNBDB6 "cunbdb6_")
  ((M1 :FOREIGN-ADDRESS) (M2 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X1 :FOREIGN-ADDRESS) (INCX1 :FOREIGN-ADDRESS) (X2 :FOREIGN-ADDRESS)
   (INCX2 :FOREIGN-ADDRESS) (Q1 :FOREIGN-ADDRESS)
   (LDQ1 :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNBDB6
    (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNBDB6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF8303 ':INT32) (M2-REF8304 ':INT32)
                              (N-REF8305 ':INT32)
                              (INCX1-REF8307 ':INT32)
                              (INCX2-REF8309 ':INT32)
                              (LDQ1-REF8311 ':INT32)
                              (LDQ2-REF8313 ':INT32)
                              (LWORK-REF8315 ':INT32)
                              (INFO-REF8316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF8303 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF8304 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8305 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF8307 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF8309 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF8311 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF8313 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8315 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8316 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF8306 X1)
                                            (X2-REF8308 X2)
                                            (Q1-REF8310 Q1)
                                            (Q2-REF8312 Q2)
                                            (WORK-REF8314 WORK))
      (%%CUNBDB6 M1-REF8303 M2-REF8304 N-REF8305 X1-REF8306
       INCX1-REF8307 X2-REF8308 INCX2-REF8309 Q1-REF8310 LDQ1-REF8311
       Q2-REF8312 LDQ2-REF8313 WORK-REF8314 LWORK-REF8315
       INFO-REF8316))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGSVP3 "dggsvp3_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (TOLA :FOREIGN-ADDRESS) (TOLB :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGSVP3
    (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV Q LDQ
     IWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGSVP3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TOLB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8320 ':INT32) (P-REF8321 ':INT32)
                              (N-REF8322 ':INT32) (LDA-REF8324 ':INT32)
                              (LDB-REF8326 ':INT32)
                              (TOLA-REF8327 ':DOUBLE)
                              (TOLB-REF8328 ':DOUBLE)
                              (K-REF8329 ':INT32) (L-REF8330 ':INT32)
                              (LDU-REF8332 ':INT32)
                              (LDV-REF8334 ':INT32)
                              (LDQ-REF8336 ':INT32)
                              (LWORK-REF8340 ':INT32)
                              (INFO-REF8341 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8320 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF8321 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8322 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8324 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8326 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF8327 :DOUBLE) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF8328 :DOUBLE) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8329 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8330 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8332 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8334 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8336 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8340 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8341 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8323 A)
                                            (B-REF8325 B)
                                            (U-REF8331 U)
                                            (V-REF8333 V)
                                            (Q-REF8335 Q)
                                            (IWORK-REF8337 IWORK)
                                            (TAU-REF8338 TAU)
                                            (WORK-REF8339 WORK))
      (%%DGGSVP3 JOBU JOBV JOBQ M-REF8320 P-REF8321 N-REF8322 A-REF8323
       LDA-REF8324 B-REF8325 LDB-REF8326 TOLA-REF8327 TOLB-REF8328
       K-REF8329 L-REF8330 U-REF8331 LDU-REF8332 V-REF8333 LDV-REF8334
       Q-REF8335 LDQ-REF8336 IWORK-REF8337 TAU-REF8338 WORK-REF8339
       LWORK-REF8340 INFO-REF8341))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEQRF "sgeqrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEQRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8342 ':INT32) (N-REF8343 ':INT32)
                              (LDA-REF8345 ':INT32)
                              (LWORK-REF8348 ':INT32)
                              (INFO-REF8349 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8342 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8343 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8345 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8348 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8349 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8344 A)
                                            (TAU-REF8346 TAU)
                                            (WORK-REF8347 WORK))
      (%%SGEQRF M-REF8342 N-REF8343 A-REF8344 LDA-REF8345 TAU-REF8346
       WORK-REF8347 LWORK-REF8348 INFO-REF8349))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSPTRS "zsptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8351 ':INT32)
                              (NRHS-REF8352 ':INT32)
                              (LDB-REF8356 ':INT32)
                              (INFO-REF8357 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8351 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8352 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8356 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8357 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8353 AP)
                                            (IPIV-REF8354 IPIV)
                                            (B-REF8355 B))
      (%%ZSPTRS UPLO N-REF8351 NRHS-REF8352 AP-REF8353 IPIV-REF8354
       B-REF8355 LDB-REF8356 INFO-REF8357))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESV "sgesv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8358 ':INT32)
                              (NRHS-REF8359 ':INT32)
                              (LDA-REF8361 ':INT32)
                              (LDB-REF8364 ':INT32)
                              (INFO-REF8365 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8358 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8359 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8361 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8364 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8365 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8360 A)
                                            (IPIV-REF8362 IPIV)
                                            (B-REF8363 B))
      (%%SGESV N-REF8358 NRHS-REF8359 A-REF8360 LDA-REF8361
       IPIV-REF8362 B-REF8363 LDB-REF8364 INFO-REF8365))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYRFSX "csyrfsx_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (N_ERR_BNDS :FOREIGN-ADDRESS) (ERR_BNDS_NORM :FOREIGN-ADDRESS)
   (ERR_BNDS_COMP :FOREIGN-ADDRESS) (NPARAMS :FOREIGN-ADDRESS)
   (PARAMS :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYRFSX
    (UPLO EQUED N NRHS A LDA AF LDAF IPIV S B LDB X LDX RCOND BERR
     N_ERR_BNDS ERR_BNDS_NORM ERR_BNDS_COMP NPARAMS PARAMS WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYRFSX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N_ERR_BNDS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_NORM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ERR_BNDS_COMP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NPARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) PARAMS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8368 ':INT32)
                              (NRHS-REF8369 ':INT32)
                              (LDA-REF8371 ':INT32)
                              (LDAF-REF8373 ':INT32)
                              (LDB-REF8377 ':INT32)
                              (LDX-REF8379 ':INT32)
                              (RCOND-REF8380 ':FLOAT)
                              (N_ERR_BNDS-REF8382 ':INT32)
                              (NPARAMS-REF8385 ':INT32)
                              (INFO-REF8389 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8369 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8371 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF8373 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8377 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8379 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF8380 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF N_ERR_BNDS-REF8382 :INT32)
                      N_ERR_BNDS)
    (COMMON-LISP:SETF (CFFI:MEM-REF NPARAMS-REF8385 :INT32) NPARAMS)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8389 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8370 A)
                                            (AF-REF8372 AF)
                                            (IPIV-REF8374 IPIV)
                                            (S-REF8375 S)
                                            (B-REF8376 B)
                                            (X-REF8378 X)
                                            (BERR-REF8381 BERR)
                                            (ERR_BNDS_NORM-REF8383
                                             ERR_BNDS_NORM)
                                            (ERR_BNDS_COMP-REF8384
                                             ERR_BNDS_COMP)
                                            (PARAMS-REF8386 PARAMS)
                                            (WORK-REF8387 WORK)
                                            (RWORK-REF8388 RWORK))
      (%%CSYRFSX UPLO EQUED N-REF8368 NRHS-REF8369 A-REF8370
       LDA-REF8371 AF-REF8372 LDAF-REF8373 IPIV-REF8374 S-REF8375
       B-REF8376 LDB-REF8377 X-REF8378 LDX-REF8379 RCOND-REF8380
       BERR-REF8381 N_ERR_BNDS-REF8382 ERR_BNDS_NORM-REF8383
       ERR_BNDS_COMP-REF8384 NPARAMS-REF8385 PARAMS-REF8386
       WORK-REF8387 RWORK-REF8388 INFO-REF8389))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQHP "claqhp_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQHP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQHP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8391 ':INT32)
                              (SCOND-REF8394 ':FLOAT)
                              (AMAX-REF8395 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8391 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8394 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8395 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8392 AP)
                                            (S-REF8393 S))
      (%%CLAQHP UPLO N-REF8391 AP-REF8392 S-REF8393 SCOND-REF8394
       AMAX-REF8395 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPOSV "dposv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPOSV (UPLO N NRHS A LDA B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPOSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8398 ':INT32)
                              (NRHS-REF8399 ':INT32)
                              (LDA-REF8401 ':INT32)
                              (LDB-REF8403 ':INT32)
                              (INFO-REF8404 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8398 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8399 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8401 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8403 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8404 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8400 A)
                                            (B-REF8402 B))
      (%%DPOSV UPLO N-REF8398 NRHS-REF8399 A-REF8400 LDA-REF8401
       B-REF8402 LDB-REF8403 INFO-REF8404))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHPTRD "chptrd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHPTRD (UPLO N AP D E TAU INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPTRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8406 ':INT32)
                              (INFO-REF8411 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8406 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8411 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8407 AP)
                                            (D-REF8408 D)
                                            (E-REF8409 E)
                                            (TAU-REF8410 TAU))
      (%%CHPTRD UPLO N-REF8406 AP-REF8407 D-REF8408 E-REF8409
       TAU-REF8410 INFO-REF8411))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARFG "dlarfg_")
  ((N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8412 ':INT32)
                              (ALPHA-REF8413 ':DOUBLE)
                              (INCX-REF8415 ':INT32)
                              (TAU-REF8416 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8412 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF8413 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8415 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF8416 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8414 X))
      (%%DLARFG N-REF8412 ALPHA-REF8413 X-REF8414 INCX-REF8415
       TAU-REF8416))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNBDB3 "zunbdb3_")
  ((M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (PHI :FOREIGN-ADDRESS)
   (TAUP1 :FOREIGN-ADDRESS) (TAUP2 :FOREIGN-ADDRESS)
   (TAUQ1 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNBDB3
    (M P Q X11 LDX11 X21 LDX21 THETA PHI TAUP1 TAUP2 TAUQ1 WORK LWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNBDB3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) PHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8417 ':INT32) (P-REF8418 ':INT32)
                              (Q-REF8419 ':INT32)
                              (LDX11-REF8421 ':INT32)
                              (LDX21-REF8423 ':INT32)
                              (LWORK-REF8430 ':INT32)
                              (INFO-REF8431 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8417 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF8418 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF8419 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF8421 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF8423 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8430 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8431 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF8420 X11)
                                            (X21-REF8422 X21)
                                            (THETA-REF8424 THETA)
                                            (PHI-REF8425 PHI)
                                            (TAUP1-REF8426 TAUP1)
                                            (TAUP2-REF8427 TAUP2)
                                            (TAUQ1-REF8428 TAUQ1)
                                            (WORK-REF8429 WORK))
      (%%ZUNBDB3 M-REF8417 P-REF8418 Q-REF8419 X11-REF8420
       LDX11-REF8421 X21-REF8422 LDX21-REF8423 THETA-REF8424
       PHI-REF8425 TAUP1-REF8426 TAUP2-REF8427 TAUQ1-REF8428
       WORK-REF8429 LWORK-REF8430 INFO-REF8431))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBTRF "sgbtrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBTRF (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBTRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8432 ':INT32) (N-REF8433 ':INT32)
                              (KL-REF8434 ':INT32) (KU-REF8435 ':INT32)
                              (LDAB-REF8437 ':INT32)
                              (INFO-REF8439 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8432 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8433 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8434 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8435 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8437 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8439 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8436 AB)
                                            (IPIV-REF8438 IPIV))
      (%%SGBTRF M-REF8432 N-REF8433 KL-REF8434 KU-REF8435 AB-REF8436
       LDAB-REF8437 IPIV-REF8438 INFO-REF8439))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASR "slasr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (PIVOT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIRECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASR (SIDE PIVOT DIRECT M N C S A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING PIVOT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIRECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8443 ':INT32) (N-REF8444 ':INT32)
                              (LDA-REF8448 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8443 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8444 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8448 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((C-REF8445 C)
                                            (S-REF8446 S)
                                            (A-REF8447 A))
      (%%SLASR SIDE PIVOT DIRECT M-REF8443 N-REF8444 C-REF8445
       S-REF8446 A-REF8447 LDA-REF8448))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAGTF "slagtf_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LAMBDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (IN :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAGTF (N A LAMBDA B C TOL D IN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAGTF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT LAMBDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8449 ':INT32)
                              (LAMBDA-REF8451 ':FLOAT)
                              (TOL-REF8454 ':FLOAT)
                              (INFO-REF8457 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8449 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF8451 :FLOAT) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF8454 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8457 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8450 A)
                                            (B-REF8452 B)
                                            (C-REF8453 C)
                                            (D-REF8455 D)
                                            (IN-REF8456 IN))
      (%%SLAGTF N-REF8449 A-REF8450 LAMBDA-REF8451 B-REF8452 C-REF8453
       TOL-REF8454 D-REF8455 IN-REF8456 INFO-REF8457))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASWP "dlaswp_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (K1 :FOREIGN-ADDRESS) (K2 :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASWP (N A LDA K1 K2 IPIV INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASWP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8458 ':INT32) (LDA-REF8460 ':INT32)
                              (K1-REF8461 ':INT32) (K2-REF8462 ':INT32)
                              (INCX-REF8464 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8458 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8460 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF K1-REF8461 :INT32) K1)
    (COMMON-LISP:SETF (CFFI:MEM-REF K2-REF8462 :INT32) K2)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8464 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8459 A)
                                            (IPIV-REF8463 IPIV))
      (%%DLASWP N-REF8458 A-REF8459 LDA-REF8460 K1-REF8461 K2-REF8462
       IPIV-REF8463 INCX-REF8464))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHPTRI "zhptri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHPTRI (UPLO N AP IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8466 ':INT32)
                              (INFO-REF8470 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8466 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8470 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8467 AP)
                                            (IPIV-REF8468 IPIV)
                                            (WORK-REF8469 WORK))
      (%%ZHPTRI UPLO N-REF8466 AP-REF8467 IPIV-REF8468 WORK-REF8469
       INFO-REF8470))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASYF_ROOK "slasyf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASYF_ROOK (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASYF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8472 ':INT32) (NB-REF8473 ':INT32)
                              (KB-REF8474 ':INT32)
                              (LDA-REF8476 ':INT32)
                              (LDW-REF8479 ':INT32)
                              (INFO-REF8480 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8472 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8473 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8474 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8476 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8479 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8480 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8475 A)
                                            (IPIV-REF8477 IPIV)
                                            (W-REF8478 W))
      (%%SLASYF_ROOK UPLO N-REF8472 NB-REF8473 KB-REF8474 A-REF8475
       LDA-REF8476 IPIV-REF8477 W-REF8478 LDW-REF8479 INFO-REF8480))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAHEF_RK "zlahef_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAHEF_RK (UPLO N NB KB A LDA E IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAHEF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8482 ':INT32) (NB-REF8483 ':INT32)
                              (KB-REF8484 ':INT32)
                              (LDA-REF8486 ':INT32)
                              (LDW-REF8490 ':INT32)
                              (INFO-REF8491 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8482 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8483 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF8484 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8486 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF8490 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8491 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8485 A)
                                            (E-REF8487 E)
                                            (IPIV-REF8488 IPIV)
                                            (W-REF8489 W))
      (%%ZLAHEF_RK UPLO N-REF8482 NB-REF8483 KB-REF8484 A-REF8485
       LDA-REF8486 E-REF8487 IPIV-REF8488 W-REF8489 LDW-REF8490
       INFO-REF8491))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANSP "zlansp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANSP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8494 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8494 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8495 AP)
                                            (WORK-REF8496 WORK))
      (%%ZLANSP NORM UPLO N-REF8494 AP-REF8495 WORK-REF8496))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYCONVF_ROOK "csyconvf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (WAY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYCONVF_ROOK (UPLO WAY N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYCONVF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING WAY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8499 ':INT32) (LDA-REF8501 ':INT32)
                              (INFO-REF8504 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8499 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8501 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8504 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8500 A)
                                            (E-REF8502 E)
                                            (IPIV-REF8503 IPIV))
      (%%CSYCONVF_ROOK UPLO WAY N-REF8499 A-REF8500 LDA-REF8501
       E-REF8502 IPIV-REF8503 INFO-REF8504))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESDD "sgesdd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (VT :FOREIGN-ADDRESS) (LDVT :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESDD
    (JOBZ M N A LDA S U LDU VT LDVT WORK LWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESDD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) VT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8506 ':INT32) (N-REF8507 ':INT32)
                              (LDA-REF8509 ':INT32)
                              (LDU-REF8512 ':INT32)
                              (LDVT-REF8514 ':INT32)
                              (LWORK-REF8516 ':INT32)
                              (INFO-REF8518 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8506 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8507 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8509 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8512 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVT-REF8514 :INT32) LDVT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8516 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8518 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8508 A)
                                            (S-REF8510 S)
                                            (U-REF8511 U)
                                            (VT-REF8513 VT)
                                            (WORK-REF8515 WORK)
                                            (IWORK-REF8517 IWORK))
      (%%SGESDD JOBZ M-REF8506 N-REF8507 A-REF8508 LDA-REF8509
       S-REF8510 U-REF8511 LDU-REF8512 VT-REF8513 LDVT-REF8514
       WORK-REF8515 LWORK-REF8516 IWORK-REF8517 INFO-REF8518))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPBRFS "zpbrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPBRFS
    (UPLO N KD NRHS AB LDAB AFB LDAFB B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPBRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8520 ':INT32) (KD-REF8521 ':INT32)
                              (NRHS-REF8522 ':INT32)
                              (LDAB-REF8524 ':INT32)
                              (LDAFB-REF8526 ':INT32)
                              (LDB-REF8528 ':INT32)
                              (LDX-REF8530 ':INT32)
                              (INFO-REF8535 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8520 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8521 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8522 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8524 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF8526 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8528 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8530 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8535 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8523 AB)
                                            (AFB-REF8525 AFB)
                                            (B-REF8527 B)
                                            (X-REF8529 X)
                                            (FERR-REF8531 FERR)
                                            (BERR-REF8532 BERR)
                                            (WORK-REF8533 WORK)
                                            (RWORK-REF8534 RWORK))
      (%%ZPBRFS UPLO N-REF8520 KD-REF8521 NRHS-REF8522 AB-REF8523
       LDAB-REF8524 AFB-REF8525 LDAFB-REF8526 B-REF8527 LDB-REF8528
       X-REF8529 LDX-REF8530 FERR-REF8531 BERR-REF8532 WORK-REF8533
       RWORK-REF8534 INFO-REF8535))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPPRFS "zpprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPPRFS
    (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8537 ':INT32)
                              (NRHS-REF8538 ':INT32)
                              (LDB-REF8542 ':INT32)
                              (LDX-REF8544 ':INT32)
                              (INFO-REF8549 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8537 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8538 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8542 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF8544 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8549 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8539 AP)
                                            (AFP-REF8540 AFP)
                                            (B-REF8541 B)
                                            (X-REF8543 X)
                                            (FERR-REF8545 FERR)
                                            (BERR-REF8546 BERR)
                                            (WORK-REF8547 WORK)
                                            (RWORK-REF8548 RWORK))
      (%%ZPPRFS UPLO N-REF8537 NRHS-REF8538 AP-REF8539 AFP-REF8540
       B-REF8541 LDB-REF8542 X-REF8543 LDX-REF8544 FERR-REF8545
       BERR-REF8546 WORK-REF8547 RWORK-REF8548 INFO-REF8549))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGESV "zgesv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGESV (N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGESV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8550 ':INT32)
                              (NRHS-REF8551 ':INT32)
                              (LDA-REF8553 ':INT32)
                              (LDB-REF8556 ':INT32)
                              (INFO-REF8557 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8550 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8551 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8553 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8556 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8557 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8552 A)
                                            (IPIV-REF8554 IPIV)
                                            (B-REF8555 B))
      (%%ZGESV N-REF8550 NRHS-REF8551 A-REF8552 LDA-REF8553
       IPIV-REF8554 B-REF8555 LDB-REF8556 INFO-REF8557))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQL2 "zgeql2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQL2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8558 ':INT32) (N-REF8559 ':INT32)
                              (LDA-REF8561 ':INT32)
                              (INFO-REF8564 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8558 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8559 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8561 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8564 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8560 A)
                                            (TAU-REF8562 TAU)
                                            (WORK-REF8563 WORK))
      (%%ZGEQL2 M-REF8558 N-REF8559 A-REF8560 LDA-REF8561 TAU-REF8562
       WORK-REF8563 INFO-REF8564))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBSV "spbsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBSV (UPLO N KD NRHS AB LDAB B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8566 ':INT32) (KD-REF8567 ':INT32)
                              (NRHS-REF8568 ':INT32)
                              (LDAB-REF8570 ':INT32)
                              (LDB-REF8572 ':INT32)
                              (INFO-REF8573 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8566 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8567 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8568 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8570 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8572 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8573 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8569 AB)
                                            (B-REF8571 B))
      (%%SPBSV UPLO N-REF8566 KD-REF8567 NRHS-REF8568 AB-REF8569
       LDAB-REF8570 B-REF8571 LDB-REF8572 INFO-REF8573))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGGSVD3 "zggsvd3_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGGSVD3
    (JOBU JOBV JOBQ M N P K L A LDA B LDB ALPHA BETA U LDU V LDV Q LDQ
     WORK LWORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGGSVD3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8577 ':INT32) (N-REF8578 ':INT32)
                              (P-REF8579 ':INT32) (K-REF8580 ':INT32)
                              (L-REF8581 ':INT32) (LDA-REF8583 ':INT32)
                              (LDB-REF8585 ':INT32)
                              (LDU-REF8589 ':INT32)
                              (LDV-REF8591 ':INT32)
                              (LDQ-REF8593 ':INT32)
                              (LWORK-REF8595 ':INT32)
                              (INFO-REF8598 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8577 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8578 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF8579 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8580 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8581 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8583 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8585 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8589 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8591 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8593 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8595 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8598 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8582 A)
                                            (B-REF8584 B)
                                            (ALPHA-REF8586 ALPHA)
                                            (BETA-REF8587 BETA)
                                            (U-REF8588 U)
                                            (V-REF8590 V)
                                            (Q-REF8592 Q)
                                            (WORK-REF8594 WORK)
                                            (RWORK-REF8596 RWORK)
                                            (IWORK-REF8597 IWORK))
      (%%ZGGSVD3 JOBU JOBV JOBQ M-REF8577 N-REF8578 P-REF8579 K-REF8580
       L-REF8581 A-REF8582 LDA-REF8583 B-REF8584 LDB-REF8585
       ALPHA-REF8586 BETA-REF8587 U-REF8588 LDU-REF8589 V-REF8590
       LDV-REF8591 Q-REF8592 LDQ-REF8593 WORK-REF8594 LWORK-REF8595
       RWORK-REF8596 IWORK-REF8597 INFO-REF8598))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTREVC "ctrevc_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTREVC
    (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTREVC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8602 ':INT32) (LDT-REF8604 ':INT32)
                              (LDVL-REF8606 ':INT32)
                              (LDVR-REF8608 ':INT32)
                              (MM-REF8609 ':INT32) (M-REF8610 ':INT32)
                              (INFO-REF8613 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8602 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8604 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF8606 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF8608 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF8609 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8610 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8613 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF8601 SELECT)
                                            (T-REF8603 T)
                                            (VL-REF8605 VL)
                                            (VR-REF8607 VR)
                                            (WORK-REF8611 WORK)
                                            (RWORK-REF8612 RWORK))
      (%%CTREVC SIDE HOWMNY SELECT-REF8601 N-REF8602 T-REF8603
       LDT-REF8604 VL-REF8605 LDVL-REF8606 VR-REF8607 LDVR-REF8608
       MM-REF8609 M-REF8610 WORK-REF8611 RWORK-REF8612 INFO-REF8613))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPEVX "sspevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPEVX
    (JOBZ RANGE UPLO N AP VL VU IL IU ABSTOL M W Z LDZ WORK IWORK IFAIL
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8617 ':INT32) (VL-REF8619 ':FLOAT)
                              (VU-REF8620 ':FLOAT) (IL-REF8621 ':INT32)
                              (IU-REF8622 ':INT32)
                              (ABSTOL-REF8623 ':FLOAT)
                              (M-REF8624 ':INT32) (LDZ-REF8627 ':INT32)
                              (INFO-REF8631 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8617 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8619 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8620 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8621 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8622 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF8623 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8624 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8627 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8631 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8618 AP)
                                            (W-REF8625 W)
                                            (Z-REF8626 Z)
                                            (WORK-REF8628 WORK)
                                            (IWORK-REF8629 IWORK)
                                            (IFAIL-REF8630 IFAIL))
      (%%SSPEVX JOBZ RANGE UPLO N-REF8617 AP-REF8618 VL-REF8619
       VU-REF8620 IL-REF8621 IU-REF8622 ABSTOL-REF8623 M-REF8624
       W-REF8625 Z-REF8626 LDZ-REF8627 WORK-REF8628 IWORK-REF8629
       IFAIL-REF8630 INFO-REF8631))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGEV "cggev_")
  ((JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGEV
    (JOBVL JOBVR N A LDA B LDB ALPHA BETA VL LDVL VR LDVR WORK LWORK
     RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8634 ':INT32) (LDA-REF8636 ':INT32)
                              (LDB-REF8638 ':INT32)
                              (LDVL-REF8642 ':INT32)
                              (LDVR-REF8644 ':INT32)
                              (LWORK-REF8646 ':INT32)
                              (INFO-REF8648 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8634 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8636 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8638 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF8642 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF8644 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8646 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8648 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8635 A)
                                            (B-REF8637 B)
                                            (ALPHA-REF8639 ALPHA)
                                            (BETA-REF8640 BETA)
                                            (VL-REF8641 VL)
                                            (VR-REF8643 VR)
                                            (WORK-REF8645 WORK)
                                            (RWORK-REF8647 RWORK))
      (%%CGGEV JOBVL JOBVR N-REF8634 A-REF8635 LDA-REF8636 B-REF8637
       LDB-REF8638 ALPHA-REF8639 BETA-REF8640 VL-REF8641 LDVL-REF8642
       VR-REF8643 LDVR-REF8644 WORK-REF8645 LWORK-REF8646 RWORK-REF8647
       INFO-REF8648))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLANST "dlanst_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLANST (NORM N D E)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLANST)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8650 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8650 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8651 D)
                                            (E-REF8652 E))
      (%%DLANST NORM N-REF8650 D-REF8651 E-REF8652))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEJSV "zgejsv_")
  ((JOBA (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBP (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (SVA :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (CWORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEJSV
    (JOBA JOBU JOBV JOBR JOBT JOBP M N A LDA SVA U LDU V LDV CWORK
     LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEJSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SVA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    CWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8659 ':INT32) (N-REF8660 ':INT32)
                              (LDA-REF8662 ':INT32)
                              (LDU-REF8665 ':INT32)
                              (LDV-REF8667 ':INT32)
                              (LWORK-REF8669 ':INT32)
                              (LRWORK-REF8671 ':INT32)
                              (INFO-REF8673 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8659 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8660 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8662 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8665 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8667 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8669 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF8671 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8673 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8661 A)
                                            (SVA-REF8663 SVA)
                                            (U-REF8664 U)
                                            (V-REF8666 V)
                                            (CWORK-REF8668 CWORK)
                                            (RWORK-REF8670 RWORK)
                                            (IWORK-REF8672 IWORK))
      (%%ZGEJSV JOBA JOBU JOBV JOBR JOBT JOBP M-REF8659 N-REF8660
       A-REF8661 LDA-REF8662 SVA-REF8663 U-REF8664 LDU-REF8665
       V-REF8666 LDV-REF8667 CWORK-REF8668 LWORK-REF8669 RWORK-REF8670
       LRWORK-REF8671 IWORK-REF8672 INFO-REF8673))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGETRF2 "cgetrf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGETRF2 (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGETRF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8674 ':INT32) (N-REF8675 ':INT32)
                              (LDA-REF8677 ':INT32)
                              (INFO-REF8679 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8674 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8675 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8677 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8679 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8676 A)
                                            (IPIV-REF8678 IPIV))
      (%%CGETRF2 M-REF8674 N-REF8675 A-REF8676 LDA-REF8677 IPIV-REF8678
       INFO-REF8679))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DORGL2 "dorgl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DORGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DORGL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8680 ':INT32) (N-REF8681 ':INT32)
                              (K-REF8682 ':INT32) (LDA-REF8684 ':INT32)
                              (INFO-REF8687 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8680 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8681 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8682 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8684 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8687 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8683 A)
                                            (TAU-REF8685 TAU)
                                            (WORK-REF8686 WORK))
      (%%DORGL2 M-REF8680 N-REF8681 K-REF8682 A-REF8683 LDA-REF8684
       TAU-REF8685 WORK-REF8686 INFO-REF8687))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHEEQUB "cheequb_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SCOND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHEEQUB (UPLO N A LDA S SCOND AMAX WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEEQUB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8689 ':INT32) (LDA-REF8691 ':INT32)
                              (SCOND-REF8693 ':FLOAT)
                              (AMAX-REF8694 ':FLOAT)
                              (INFO-REF8696 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8689 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8691 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8693 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8694 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8696 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8690 A)
                                            (S-REF8692 S)
                                            (WORK-REF8695 WORK))
      (%%CHEEQUB UPLO N-REF8689 A-REF8690 LDA-REF8691 S-REF8692
       SCOND-REF8693 AMAX-REF8694 WORK-REF8695 INFO-REF8696))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAR2V "dlar2v_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAR2V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8697 ':INT32)
                              (INCX-REF8701 ':INT32)
                              (INCC-REF8704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8697 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8701 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8704 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8698 X)
                                            (Y-REF8699 Y)
                                            (Z-REF8700 Z)
                                            (C-REF8702 C)
                                            (S-REF8703 S))
      (%%DLAR2V N-REF8697 X-REF8698 Y-REF8699 Z-REF8700 INCX-REF8701
       C-REF8702 S-REF8703 INCC-REF8704))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRF_AA "chetrf_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRF_AA (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8706 ':INT32) (LDA-REF8708 ':INT32)
                              (LWORK-REF8711 ':INT32)
                              (INFO-REF8712 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8706 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8708 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8711 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8712 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8707 A)
                                            (IPIV-REF8709 IPIV)
                                            (WORK-REF8710 WORK))
      (%%CHETRF_AA UPLO N-REF8706 A-REF8707 LDA-REF8708 IPIV-REF8709
       WORK-REF8710 LWORK-REF8711 INFO-REF8712))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQGE "claqge_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (ROWCND :FOREIGN-ADDRESS) (COLCND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQGE (M N A LDA R C ROWCND COLCND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8713 ':INT32) (N-REF8714 ':INT32)
                              (LDA-REF8716 ':INT32)
                              (ROWCND-REF8719 ':FLOAT)
                              (COLCND-REF8720 ':FLOAT)
                              (AMAX-REF8721 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8713 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8714 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8716 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF8719 :FLOAT) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF8720 :FLOAT) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8721 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8715 A)
                                            (R-REF8717 R)
                                            (C-REF8718 C))
      (%%CLAQGE M-REF8713 N-REF8714 A-REF8715 LDA-REF8716 R-REF8717
       C-REF8718 ROWCND-REF8719 COLCND-REF8720 AMAX-REF8721 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPFTRS "zpftrs_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPFTRS (TRANSR UPLO N NRHS A B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPFTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8725 ':INT32)
                              (NRHS-REF8726 ':INT32)
                              (LDB-REF8729 ':INT32)
                              (INFO-REF8730 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8725 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8726 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8729 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8730 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8727 A)
                                            (B-REF8728 B))
      (%%ZPFTRS TRANSR UPLO N-REF8725 NRHS-REF8726 A-REF8727 B-REF8728
       LDB-REF8729 INFO-REF8730))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPTRS "ssptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8732 ':INT32)
                              (NRHS-REF8733 ':INT32)
                              (LDB-REF8737 ':INT32)
                              (INFO-REF8738 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8732 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8733 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8737 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8738 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8734 AP)
                                            (IPIV-REF8735 IPIV)
                                            (B-REF8736 B))
      (%%SSPTRS UPLO N-REF8732 NRHS-REF8733 AP-REF8734 IPIV-REF8735
       B-REF8736 LDB-REF8737 INFO-REF8738))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEGVX "zhegvx_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (IFAIL :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEGVX
    (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W Z LDZ
     WORK LWORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEGVX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF8739 ':INT32)
                              (N-REF8743 ':INT32) (LDA-REF8745 ':INT32)
                              (LDB-REF8747 ':INT32)
                              (VL-REF8748 ':DOUBLE)
                              (VU-REF8749 ':DOUBLE)
                              (IL-REF8750 ':INT32) (IU-REF8751 ':INT32)
                              (ABSTOL-REF8752 ':DOUBLE)
                              (M-REF8753 ':INT32) (LDZ-REF8756 ':INT32)
                              (LWORK-REF8758 ':INT32)
                              (INFO-REF8762 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF8739 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8743 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8745 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8747 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF8748 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF8749 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF8750 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF8751 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF8752 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8753 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8756 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8758 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8762 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8744 A)
                                            (B-REF8746 B)
                                            (W-REF8754 W)
                                            (Z-REF8755 Z)
                                            (WORK-REF8757 WORK)
                                            (RWORK-REF8759 RWORK)
                                            (IWORK-REF8760 IWORK)
                                            (IFAIL-REF8761 IFAIL))
      (%%ZHEGVX ITYPE-REF8739 JOBZ RANGE UPLO N-REF8743 A-REF8744
       LDA-REF8745 B-REF8746 LDB-REF8747 VL-REF8748 VU-REF8749
       IL-REF8750 IU-REF8751 ABSTOL-REF8752 M-REF8753 W-REF8754
       Z-REF8755 LDZ-REF8756 WORK-REF8757 LWORK-REF8758 RWORK-REF8759
       IWORK-REF8760 IFAIL-REF8761 INFO-REF8762))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORGL2 "sorgl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORGL2 (M N K A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORGL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8763 ':INT32) (N-REF8764 ':INT32)
                              (K-REF8765 ':INT32) (LDA-REF8767 ':INT32)
                              (INFO-REF8770 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8763 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8764 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8765 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8767 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8770 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8766 A)
                                            (TAU-REF8768 TAU)
                                            (WORK-REF8769 WORK))
      (%%SORGL2 M-REF8763 N-REF8764 K-REF8765 A-REF8766 LDA-REF8767
       TAU-REF8768 WORK-REF8769 INFO-REF8770))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRF_RK "chetrf_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRF_RK (UPLO N A LDA E IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8772 ':INT32) (LDA-REF8774 ':INT32)
                              (LWORK-REF8778 ':INT32)
                              (INFO-REF8779 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8772 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8774 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8778 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8779 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8773 A)
                                            (E-REF8775 E)
                                            (IPIV-REF8776 IPIV)
                                            (WORK-REF8777 WORK))
      (%%CHETRF_RK UPLO N-REF8772 A-REF8773 LDA-REF8774 E-REF8775
       IPIV-REF8776 WORK-REF8777 LWORK-REF8778 INFO-REF8779))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPLQT "ztplqt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPLQT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8780 ':INT32) (N-REF8781 ':INT32)
                              (L-REF8782 ':INT32) (MB-REF8783 ':INT32)
                              (LDA-REF8785 ':INT32)
                              (LDB-REF8787 ':INT32)
                              (LDT-REF8789 ':INT32)
                              (INFO-REF8791 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8780 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8781 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF8782 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF8783 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8785 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8787 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8789 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8791 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8784 A)
                                            (B-REF8786 B)
                                            (T-REF8788 T)
                                            (WORK-REF8790 WORK))
      (%%ZTPLQT M-REF8780 N-REF8781 L-REF8782 MB-REF8783 A-REF8784
       LDA-REF8785 B-REF8786 LDB-REF8787 T-REF8788 LDT-REF8789
       WORK-REF8790 INFO-REF8791))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEQRF "dgeqrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEQRF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEQRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8792 ':INT32) (N-REF8793 ':INT32)
                              (LDA-REF8795 ':INT32)
                              (LWORK-REF8798 ':INT32)
                              (INFO-REF8799 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8792 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8793 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8795 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8798 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8799 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8794 A)
                                            (TAU-REF8796 TAU)
                                            (WORK-REF8797 WORK))
      (%%DGEQRF M-REF8792 N-REF8793 A-REF8794 LDA-REF8795 TAU-REF8796
       WORK-REF8797 LWORK-REF8798 INFO-REF8799))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSPCON "zspcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8801 ':INT32)
                              (ANORM-REF8804 ':DOUBLE)
                              (RCOND-REF8805 ':DOUBLE)
                              (INFO-REF8807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8801 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF8804 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF8805 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8807 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8802 AP)
                                            (IPIV-REF8803 IPIV)
                                            (WORK-REF8806 WORK))
      (%%ZSPCON UPLO N-REF8801 AP-REF8802 IPIV-REF8803 ANORM-REF8804
       RCOND-REF8805 WORK-REF8806 INFO-REF8807))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBTRS "cgbtrs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBTRS (TRANS N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8809 ':INT32) (KL-REF8810 ':INT32)
                              (KU-REF8811 ':INT32)
                              (NRHS-REF8812 ':INT32)
                              (LDAB-REF8814 ':INT32)
                              (LDB-REF8817 ':INT32)
                              (INFO-REF8818 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8809 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8810 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8811 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8812 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8814 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8817 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8818 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8813 AB)
                                            (IPIV-REF8815 IPIV)
                                            (B-REF8816 B))
      (%%CGBTRS TRANS N-REF8809 KL-REF8810 KU-REF8811 NRHS-REF8812
       AB-REF8813 LDAB-REF8814 IPIV-REF8815 B-REF8816 LDB-REF8817
       INFO-REF8818))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQR5 "claqr5_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (KACC22 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NSHFTS :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS)
   (LDH :FOREIGN-ADDRESS) (ILOZ :FOREIGN-ADDRESS)
   (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS)
   (LDU :FOREIGN-ADDRESS) (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS)
   (LDWV :FOREIGN-ADDRESS) (NH :FOREIGN-ADDRESS) (WH :FOREIGN-ADDRESS)
   (LDWH :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQR5
    (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS S H LDH ILOZ IHIZ Z LDZ V
     LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF8819 ':INT32)
                              (WANTZ-REF8820 ':INT32)
                              (KACC22-REF8821 ':INT32)
                              (N-REF8822 ':INT32)
                              (KTOP-REF8823 ':INT32)
                              (KBOT-REF8824 ':INT32)
                              (NSHFTS-REF8825 ':INT32)
                              (LDH-REF8828 ':INT32)
                              (ILOZ-REF8829 ':INT32)
                              (IHIZ-REF8830 ':INT32)
                              (LDZ-REF8832 ':INT32)
                              (LDV-REF8834 ':INT32)
                              (LDU-REF8836 ':INT32)
                              (NV-REF8837 ':INT32)
                              (LDWV-REF8839 ':INT32)
                              (NH-REF8840 ':INT32)
                              (LDWH-REF8842 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF8819 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF8820 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF8821 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8822 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF8823 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF8824 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF8825 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF8828 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF8829 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF8830 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF8832 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8834 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF8836 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF8837 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF8839 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF8840 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF8842 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((S-REF8826 S)
                                            (H-REF8827 H)
                                            (Z-REF8831 Z)
                                            (V-REF8833 V)
                                            (U-REF8835 U)
                                            (WV-REF8838 WV)
                                            (WH-REF8841 WH))
      (%%CLAQR5 WANTT-REF8819 WANTZ-REF8820 KACC22-REF8821 N-REF8822
       KTOP-REF8823 KBOT-REF8824 NSHFTS-REF8825 S-REF8826 H-REF8827
       LDH-REF8828 ILOZ-REF8829 IHIZ-REF8830 Z-REF8831 LDZ-REF8832
       V-REF8833 LDV-REF8834 U-REF8835 LDU-REF8836 NV-REF8837
       WV-REF8838 LDWV-REF8839 NH-REF8840 WH-REF8841 LDWH-REF8842))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_GBRCOND "dla_gbrcond_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (CMODE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_GBRCOND
    (TRANS N KL KU AB LDAB AFB LDAFB IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_GBRCOND)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8844 ':INT32) (KL-REF8845 ':INT32)
                              (KU-REF8846 ':INT32)
                              (LDAB-REF8848 ':INT32)
                              (LDAFB-REF8850 ':INT32)
                              (CMODE-REF8852 ':INT32)
                              (INFO-REF8854 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8844 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8845 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8846 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8848 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF8850 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF8852 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8854 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8847 AB)
                                            (AFB-REF8849 AFB)
                                            (IPIV-REF8851 IPIV)
                                            (C-REF8853 C)
                                            (WORK-REF8855 WORK)
                                            (IWORK-REF8856 IWORK))
      (%%DLA_GBRCOND TRANS N-REF8844 KL-REF8845 KU-REF8846 AB-REF8847
       LDAB-REF8848 AFB-REF8849 LDAFB-REF8850 IPIV-REF8851
       CMODE-REF8852 C-REF8853 INFO-REF8854 WORK-REF8855
       IWORK-REF8856))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQSP "slaqsp_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQSP (UPLO N AP S SCOND AMAX EQUED)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQSP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8858 ':INT32)
                              (SCOND-REF8861 ':FLOAT)
                              (AMAX-REF8862 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8858 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF8861 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF8862 :FLOAT) AMAX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF8859 AP)
                                            (S-REF8860 S))
      (%%SLAQSP UPLO N-REF8858 AP-REF8859 S-REF8860 SCOND-REF8861
       AMAX-REF8862 EQUED))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLASCL "slascl_")
  ((TYPE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (CFROM :FOREIGN-ADDRESS)
   (CTO :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLASCL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CFROM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT CTO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF8865 ':INT32) (KU-REF8866 ':INT32)
                              (CFROM-REF8867 ':FLOAT)
                              (CTO-REF8868 ':FLOAT) (M-REF8869 ':INT32)
                              (N-REF8870 ':INT32) (LDA-REF8872 ':INT32)
                              (INFO-REF8873 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8865 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8866 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF8867 :FLOAT) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF8868 :FLOAT) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8869 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8870 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8872 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8873 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8871 A))
      (%%SLASCL TYPE KL-REF8865 KU-REF8866 CFROM-REF8867 CTO-REF8868
       M-REF8869 N-REF8870 A-REF8871 LDA-REF8872 INFO-REF8873))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGEMQRT "cgemqrt_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGEMQRT
    (SIDE TRANS M N K NB V LDV T LDT C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMQRT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8876 ':INT32) (N-REF8877 ':INT32)
                              (K-REF8878 ':INT32) (NB-REF8879 ':INT32)
                              (LDV-REF8881 ':INT32)
                              (LDT-REF8883 ':INT32)
                              (LDC-REF8885 ':INT32)
                              (INFO-REF8887 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8876 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8877 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF8878 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF8879 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF8881 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8883 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8885 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8887 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((V-REF8880 V)
                                            (T-REF8882 T)
                                            (C-REF8884 C)
                                            (WORK-REF8886 WORK))
      (%%CGEMQRT SIDE TRANS M-REF8876 N-REF8877 K-REF8878 NB-REF8879
       V-REF8880 LDV-REF8881 T-REF8882 LDT-REF8883 C-REF8884
       LDC-REF8885 WORK-REF8886 INFO-REF8887))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASCL "dlascl_")
  ((TYPE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (CFROM :FOREIGN-ADDRESS)
   (CTO :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASCL (TYPE KL KU CFROM CTO M N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASCL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TYPE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CFROM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT CTO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((KL-REF8889 ':INT32) (KU-REF8890 ':INT32)
                              (CFROM-REF8891 ':DOUBLE)
                              (CTO-REF8892 ':DOUBLE)
                              (M-REF8893 ':INT32) (N-REF8894 ':INT32)
                              (LDA-REF8896 ':INT32)
                              (INFO-REF8897 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8889 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8890 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF CFROM-REF8891 :DOUBLE) CFROM)
    (COMMON-LISP:SETF (CFFI:MEM-REF CTO-REF8892 :DOUBLE) CTO)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8893 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8894 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8896 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8897 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8895 A))
      (%%DLASCL TYPE KL-REF8889 KU-REF8890 CFROM-REF8891 CTO-REF8892
       M-REF8893 N-REF8894 A-REF8895 LDA-REF8896 INFO-REF8897))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAR2V "zlar2v_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (INCC :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAR2V (N X Y Z INCX C S INCC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAR2V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    S)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8898 ':INT32)
                              (INCX-REF8902 ':INT32)
                              (INCC-REF8905 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8898 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF8902 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCC-REF8905 :INT32) INCC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF8899 X)
                                            (Y-REF8900 Y)
                                            (Z-REF8901 Z)
                                            (C-REF8903 C)
                                            (S-REF8904 S))
      (%%ZLAR2V N-REF8898 X-REF8899 Y-REF8900 Z-REF8901 INCX-REF8902
       C-REF8903 S-REF8904 INCC-REF8905))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBBRD "cgbbrd_")
  ((VECT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NCC :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (PT :FOREIGN-ADDRESS) (LDPT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBBRD
    (VECT M N NCC KL KU AB LDAB D E Q LDQ PT LDPT C LDC WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBBRD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING VECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    PT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDPT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8907 ':INT32) (N-REF8908 ':INT32)
                              (NCC-REF8909 ':INT32)
                              (KL-REF8910 ':INT32) (KU-REF8911 ':INT32)
                              (LDAB-REF8913 ':INT32)
                              (LDQ-REF8917 ':INT32)
                              (LDPT-REF8919 ':INT32)
                              (LDC-REF8921 ':INT32)
                              (INFO-REF8924 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8907 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8908 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCC-REF8909 :INT32) NCC)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF8910 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF8911 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8913 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8917 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDPT-REF8919 :INT32) LDPT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF8921 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8924 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8912 AB)
                                            (D-REF8914 D)
                                            (E-REF8915 E)
                                            (Q-REF8916 Q)
                                            (PT-REF8918 PT)
                                            (C-REF8920 C)
                                            (WORK-REF8922 WORK)
                                            (RWORK-REF8923 RWORK))
      (%%CGBBRD VECT M-REF8907 N-REF8908 NCC-REF8909 KL-REF8910
       KU-REF8911 AB-REF8912 LDAB-REF8913 D-REF8914 E-REF8915 Q-REF8916
       LDQ-REF8917 PT-REF8918 LDPT-REF8919 C-REF8920 LDC-REF8921
       WORK-REF8922 RWORK-REF8923 INFO-REF8924))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLALSD "clalsd_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SMLSIZ :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLALSD
    (UPLO SMLSIZ N NRHS D E B LDB RCOND RANK WORK RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLALSD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SMLSIZ-REF8926 ':INT32)
                              (N-REF8927 ':INT32)
                              (NRHS-REF8928 ':INT32)
                              (LDB-REF8932 ':INT32)
                              (RCOND-REF8933 ':FLOAT)
                              (RANK-REF8934 ':INT32)
                              (INFO-REF8938 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF8926 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8927 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF8928 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8932 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF8933 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF8934 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8938 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF8929 D)
                                            (E-REF8930 E)
                                            (B-REF8931 B)
                                            (WORK-REF8935 WORK)
                                            (RWORK-REF8936 RWORK)
                                            (IWORK-REF8937 IWORK))
      (%%CLALSD UPLO SMLSIZ-REF8926 N-REF8927 NRHS-REF8928 D-REF8929
       E-REF8930 B-REF8931 LDB-REF8932 RCOND-REF8933 RANK-REF8934
       WORK-REF8935 RWORK-REF8936 IWORK-REF8937 INFO-REF8938))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGEVX "cggevx_")
  ((BALANC (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVL (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBVR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SENSE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (LDVL :FOREIGN-ADDRESS) (VR :FOREIGN-ADDRESS)
   (LDVR :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS)
   (IHI :FOREIGN-ADDRESS) (LSCALE :FOREIGN-ADDRESS)
   (RSCALE :FOREIGN-ADDRESS) (ABNRM :FOREIGN-ADDRESS)
   (BBNRM :FOREIGN-ADDRESS) (RCONDE :FOREIGN-ADDRESS)
   (RCONDV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (BWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGEVX
    (BALANC JOBVL JOBVR SENSE N A LDA B LDB ALPHA BETA VL LDVL VR LDVR
     ILO IHI LSCALE RSCALE ABNRM BBNRM RCONDE RCONDV WORK LWORK RWORK
     IWORK BWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING BALANC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBVR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SENSE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABNRM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BBNRM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RCONDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    BWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8943 ':INT32) (LDA-REF8945 ':INT32)
                              (LDB-REF8947 ':INT32)
                              (LDVL-REF8951 ':INT32)
                              (LDVR-REF8953 ':INT32)
                              (ILO-REF8954 ':INT32)
                              (IHI-REF8955 ':INT32)
                              (ABNRM-REF8958 ':FLOAT)
                              (BBNRM-REF8959 ':FLOAT)
                              (LWORK-REF8963 ':INT32)
                              (INFO-REF8967 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8943 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8945 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF8947 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF8951 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF8953 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF8954 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF8955 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABNRM-REF8958 :FLOAT) ABNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF BBNRM-REF8959 :FLOAT) BBNRM)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8963 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8967 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8944 A)
                                            (B-REF8946 B)
                                            (ALPHA-REF8948 ALPHA)
                                            (BETA-REF8949 BETA)
                                            (VL-REF8950 VL)
                                            (VR-REF8952 VR)
                                            (LSCALE-REF8956 LSCALE)
                                            (RSCALE-REF8957 RSCALE)
                                            (RCONDE-REF8960 RCONDE)
                                            (RCONDV-REF8961 RCONDV)
                                            (WORK-REF8962 WORK)
                                            (RWORK-REF8964 RWORK)
                                            (IWORK-REF8965 IWORK)
                                            (BWORK-REF8966 BWORK))
      (%%CGGEVX BALANC JOBVL JOBVR SENSE N-REF8943 A-REF8944
       LDA-REF8945 B-REF8946 LDB-REF8947 ALPHA-REF8948 BETA-REF8949
       VL-REF8950 LDVL-REF8951 VR-REF8952 LDVR-REF8953 ILO-REF8954
       IHI-REF8955 LSCALE-REF8956 RSCALE-REF8957 ABNRM-REF8958
       BBNRM-REF8959 RCONDE-REF8960 RCONDV-REF8961 WORK-REF8962
       LWORK-REF8963 RWORK-REF8964 IWORK-REF8965 BWORK-REF8966
       INFO-REF8967))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGERQF "cgerqf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF8968 ':INT32) (N-REF8969 ':INT32)
                              (LDA-REF8971 ':INT32)
                              (LWORK-REF8974 ':INT32)
                              (INFO-REF8975 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF8968 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8969 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8971 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF8974 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8975 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8970 A)
                                            (TAU-REF8972 TAU)
                                            (WORK-REF8973 WORK))
      (%%CGERQF M-REF8968 N-REF8969 A-REF8970 LDA-REF8971 TAU-REF8972
       WORK-REF8973 LWORK-REF8974 INFO-REF8975))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTREXC "ztrexc_")
  ((COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (IFST :FOREIGN-ADDRESS)
   (ILST :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTREXC (COMPQ N T LDT Q LDQ IFST ILST INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTREXC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IFST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILST)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8977 ':INT32) (LDT-REF8979 ':INT32)
                              (LDQ-REF8981 ':INT32)
                              (IFST-REF8982 ':INT32)
                              (ILST-REF8983 ':INT32)
                              (INFO-REF8984 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8977 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF8979 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF8981 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IFST-REF8982 :INT32) IFST)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILST-REF8983 :INT32) ILST)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8984 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((T-REF8978 T)
                                            (Q-REF8980 Q))
      (%%ZTREXC COMPQ N-REF8977 T-REF8978 LDT-REF8979 Q-REF8980
       LDQ-REF8981 IFST-REF8982 ILST-REF8983 INFO-REF8984))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_SYRPVGRW "zla_syrpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_SYRPVGRW (UPLO N INFO A LDA AF LDAF IPIV WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8986 ':INT32)
                              (INFO-REF8987 ':INT32)
                              (LDA-REF8989 ':INT32)
                              (LDAF-REF8991 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8986 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF8987 :INT32) INFO)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF8989 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF8991 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF8988 A)
                                            (AF-REF8990 AF)
                                            (IPIV-REF8992 IPIV)
                                            (WORK-REF8993 WORK))
      (%%ZLA_SYRPVGRW UPLO N-REF8986 INFO-REF8987 A-REF8988 LDA-REF8989
       AF-REF8990 LDAF-REF8991 IPIV-REF8992 WORK-REF8993))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPBEQU "spbequ_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (S :FOREIGN-ADDRESS) (SCOND :FOREIGN-ADDRESS)
   (AMAX :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPBEQU (UPLO N KD AB LDAB S SCOND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPBEQU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCOND)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF8995 ':INT32) (KD-REF8996 ':INT32)
                              (LDAB-REF8998 ':INT32)
                              (SCOND-REF9000 ':FLOAT)
                              (AMAX-REF9001 ':FLOAT)
                              (INFO-REF9002 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF8995 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF8996 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF8998 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCOND-REF9000 :FLOAT) SCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9001 :FLOAT) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9002 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF8997 AB)
                                            (S-REF8999 S))
      (%%SPBEQU UPLO N-REF8995 KD-REF8996 AB-REF8997 LDAB-REF8998
       S-REF8999 SCOND-REF9000 AMAX-REF9001 INFO-REF9002))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_GBRPVGRW "sla_gbrpvgrw_")
  ((N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NCOLS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_GBRPVGRW (N KL KU NCOLS AB LDAB AFB LDAFB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_GBRPVGRW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9003 ':INT32) (KL-REF9004 ':INT32)
                              (KU-REF9005 ':INT32)
                              (NCOLS-REF9006 ':INT32)
                              (LDAB-REF9008 ':INT32)
                              (LDAFB-REF9010 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9003 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF9004 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF9005 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF9006 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9008 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9010 :INT32) LDAFB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9007 AB)
                                            (AFB-REF9009 AFB))
      (%%SLA_GBRPVGRW N-REF9003 KL-REF9004 KU-REF9005 NCOLS-REF9006
       AB-REF9007 LDAB-REF9008 AFB-REF9009 LDAFB-REF9010))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPFTRF "dpftrf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPFTRF (TRANSR UPLO N A INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPFTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9013 ':INT32)
                              (INFO-REF9015 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9013 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9015 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9014 A))
      (%%DPFTRF TRANSR UPLO N-REF9013 A-REF9014 INFO-REF9015))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPPSVX "sppsvx_")
  ((FACT (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (EQUED (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (S :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (FERR :FOREIGN-ADDRESS) (BERR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPPSVX
    (FACT UPLO N NRHS AP AFP EQUED S B LDB X LDX RCOND FERR BERR WORK
     IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPSVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING FACT)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING EQUED)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9018 ':INT32)
                              (NRHS-REF9019 ':INT32)
                              (LDB-REF9025 ':INT32)
                              (LDX-REF9027 ':INT32)
                              (RCOND-REF9028 ':FLOAT)
                              (INFO-REF9033 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9018 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9019 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9025 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9027 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9028 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9033 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9020 AP)
                                            (AFP-REF9021 AFP)
                                            (S-REF9023 S)
                                            (B-REF9024 B)
                                            (X-REF9026 X)
                                            (FERR-REF9029 FERR)
                                            (BERR-REF9030 BERR)
                                            (WORK-REF9031 WORK)
                                            (IWORK-REF9032 IWORK))
      (%%SPPSVX FACT UPLO N-REF9018 NRHS-REF9019 AP-REF9020 AFP-REF9021
       EQUED S-REF9023 B-REF9024 LDB-REF9025 X-REF9026 LDX-REF9027
       RCOND-REF9028 FERR-REF9029 BERR-REF9030 WORK-REF9031
       IWORK-REF9032 INFO-REF9033))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAQR2 "claqr2_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS) (ND :FOREIGN-ADDRESS)
   (SH :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (NH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS) (LDWV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAQR2
    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V LDV NH
     T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAQR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    SH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF9034 ':INT32)
                              (WANTZ-REF9035 ':INT32)
                              (N-REF9036 ':INT32)
                              (KTOP-REF9037 ':INT32)
                              (KBOT-REF9038 ':INT32)
                              (NW-REF9039 ':INT32)
                              (LDH-REF9041 ':INT32)
                              (ILOZ-REF9042 ':INT32)
                              (IHIZ-REF9043 ':INT32)
                              (LDZ-REF9045 ':INT32)
                              (NS-REF9046 ':INT32) (ND-REF9047 ':INT32)
                              (LDV-REF9050 ':INT32)
                              (NH-REF9051 ':INT32)
                              (LDT-REF9053 ':INT32)
                              (NV-REF9054 ':INT32)
                              (LDWV-REF9056 ':INT32)
                              (LWORK-REF9058 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF9034 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9035 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9036 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF9037 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF9038 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF9039 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF9041 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF9042 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF9043 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9045 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF9046 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF9047 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF9050 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF9051 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9053 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF9054 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF9056 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9058 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF9040 H)
                                            (Z-REF9044 Z)
                                            (SH-REF9048 SH)
                                            (V-REF9049 V)
                                            (T-REF9052 T)
                                            (WV-REF9055 WV)
                                            (WORK-REF9057 WORK))
      (%%CLAQR2 WANTT-REF9034 WANTZ-REF9035 N-REF9036 KTOP-REF9037
       KBOT-REF9038 NW-REF9039 H-REF9040 LDH-REF9041 ILOZ-REF9042
       IHIZ-REF9043 Z-REF9044 LDZ-REF9045 NS-REF9046 ND-REF9047
       SH-REF9048 V-REF9049 LDV-REF9050 NH-REF9051 T-REF9052
       LDT-REF9053 NV-REF9054 WV-REF9055 LDWV-REF9056 WORK-REF9057
       LWORK-REF9058))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEMLQ "zgemlq_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (TSIZE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEMLQ
    (SIDE TRANS M N K A LDA T TSIZE C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMLQ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TSIZE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9061 ':INT32) (N-REF9062 ':INT32)
                              (K-REF9063 ':INT32) (LDA-REF9065 ':INT32)
                              (TSIZE-REF9067 ':INT32)
                              (LDC-REF9069 ':INT32)
                              (LWORK-REF9071 ':INT32)
                              (INFO-REF9072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9061 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9062 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9063 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9065 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TSIZE-REF9067 :INT32) TSIZE)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9069 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9071 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9064 A)
                                            (T-REF9066 T)
                                            (C-REF9068 C)
                                            (WORK-REF9070 WORK))
      (%%ZGEMLQ SIDE TRANS M-REF9061 N-REF9062 K-REF9063 A-REF9064
       LDA-REF9065 T-REF9066 TSIZE-REF9067 C-REF9068 LDC-REF9069
       WORK-REF9070 LWORK-REF9071 INFO-REF9072))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTFTTP "dtfttp_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ARF :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTFTTP (TRANSR UPLO N ARF AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTFTTP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) ARF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9075 ':INT32)
                              (INFO-REF9078 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9075 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9078 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ARF-REF9076 ARF)
                                            (AP-REF9077 AP))
      (%%DTFTTP TRANSR UPLO N-REF9075 ARF-REF9076 AP-REF9077
       INFO-REF9078))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSYCON "ssycon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSYCON
    (UPLO N A LDA IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9080 ':INT32) (LDA-REF9082 ':INT32)
                              (ANORM-REF9084 ':FLOAT)
                              (RCOND-REF9085 ':FLOAT)
                              (INFO-REF9088 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9080 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9082 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9084 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9085 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9088 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9081 A)
                                            (IPIV-REF9083 IPIV)
                                            (WORK-REF9086 WORK)
                                            (IWORK-REF9087 IWORK))
      (%%SSYCON UPLO N-REF9080 A-REF9081 LDA-REF9082 IPIV-REF9083
       ANORM-REF9084 RCOND-REF9085 WORK-REF9086 IWORK-REF9087
       INFO-REF9088))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBRFS "dgbrfs_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (AFB :FOREIGN-ADDRESS)
   (LDAFB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBRFS
    (TRANS N KL KU NRHS AB LDAB AFB LDAFB IPIV B LDB X LDX FERR BERR
     WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAFB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9090 ':INT32) (KL-REF9091 ':INT32)
                              (KU-REF9092 ':INT32)
                              (NRHS-REF9093 ':INT32)
                              (LDAB-REF9095 ':INT32)
                              (LDAFB-REF9097 ':INT32)
                              (LDB-REF9100 ':INT32)
                              (LDX-REF9102 ':INT32)
                              (INFO-REF9107 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9090 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF9091 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF9092 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9093 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9095 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAFB-REF9097 :INT32) LDAFB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9100 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9102 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9107 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9094 AB)
                                            (AFB-REF9096 AFB)
                                            (IPIV-REF9098 IPIV)
                                            (B-REF9099 B)
                                            (X-REF9101 X)
                                            (FERR-REF9103 FERR)
                                            (BERR-REF9104 BERR)
                                            (WORK-REF9105 WORK)
                                            (IWORK-REF9106 IWORK))
      (%%DGBRFS TRANS N-REF9090 KL-REF9091 KU-REF9092 NRHS-REF9093
       AB-REF9094 LDAB-REF9095 AFB-REF9096 LDAFB-REF9097 IPIV-REF9098
       B-REF9099 LDB-REF9100 X-REF9101 LDX-REF9102 FERR-REF9103
       BERR-REF9104 WORK-REF9105 IWORK-REF9106 INFO-REF9107))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSTEMR "zstemr_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS)
   (IU :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (NZC :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (TRYRAC :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSTEMR
    (JOBZ RANGE N D E VL VU IL IU M W Z LDZ NZC ISUPPZ TRYRAC WORK
     LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSTEMR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRYRAC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9110 ':INT32) (VL-REF9113 ':DOUBLE)
                              (VU-REF9114 ':DOUBLE)
                              (IL-REF9115 ':INT32) (IU-REF9116 ':INT32)
                              (M-REF9117 ':INT32) (LDZ-REF9120 ':INT32)
                              (NZC-REF9121 ':INT32)
                              (TRYRAC-REF9123 ':INT32)
                              (LWORK-REF9125 ':INT32)
                              (LIWORK-REF9127 ':INT32)
                              (INFO-REF9128 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9110 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9113 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9114 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9115 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9116 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9117 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9120 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZC-REF9121 :INT32) NZC)
    (COMMON-LISP:SETF (CFFI:MEM-REF TRYRAC-REF9123 :INT32) TRYRAC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9125 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9127 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9128 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9111 D)
                                            (E-REF9112 E)
                                            (W-REF9118 W)
                                            (Z-REF9119 Z)
                                            (ISUPPZ-REF9122 ISUPPZ)
                                            (WORK-REF9124 WORK)
                                            (IWORK-REF9126 IWORK))
      (%%ZSTEMR JOBZ RANGE N-REF9110 D-REF9111 E-REF9112 VL-REF9113
       VU-REF9114 IL-REF9115 IU-REF9116 M-REF9117 W-REF9118 Z-REF9119
       LDZ-REF9120 NZC-REF9121 ISUPPZ-REF9122 TRYRAC-REF9123
       WORK-REF9124 LWORK-REF9125 IWORK-REF9126 LIWORK-REF9127
       INFO-REF9128))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGGBAK "dggbak_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (LSCALE :FOREIGN-ADDRESS) (RSCALE :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGGBAK
    (JOB SIDE N ILO IHI LSCALE RSCALE M V LDV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGGBAK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9131 ':INT32) (ILO-REF9132 ':INT32)
                              (IHI-REF9133 ':INT32) (M-REF9136 ':INT32)
                              (LDV-REF9138 ':INT32)
                              (INFO-REF9139 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9131 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9132 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9133 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9136 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF9138 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9139 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((LSCALE-REF9134 LSCALE)
                                            (RSCALE-REF9135 RSCALE)
                                            (V-REF9137 V))
      (%%DGGBAK JOB SIDE N-REF9131 ILO-REF9132 IHI-REF9133
       LSCALE-REF9134 RSCALE-REF9135 M-REF9136 V-REF9137 LDV-REF9138
       INFO-REF9139))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLARFGP "dlarfgp_")
  ((N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLARFGP (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLARFGP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9140 ':INT32)
                              (ALPHA-REF9141 ':DOUBLE)
                              (INCX-REF9143 ':INT32)
                              (TAU-REF9144 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF9141 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9143 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF9144 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF9142 X))
      (%%DLARFGP N-REF9140 ALPHA-REF9141 X-REF9142 INCX-REF9143
       TAU-REF9144))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_LIN_BERR "sla_lin_berr_")
  ((N :FOREIGN-ADDRESS) (NZ :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_LIN_BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9145 ':INT32) (NZ-REF9146 ':INT32)
                              (NRHS-REF9147 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF9146 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9147 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF9148 RES)
                                            (AYB-REF9149 AYB)
                                            (BERR-REF9150 BERR))
      (%%SLA_LIN_BERR N-REF9145 NZ-REF9146 NRHS-REF9147 RES-REF9148
       AYB-REF9149 BERR-REF9150))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STGSEN "stgsen_")
  ((IJOB :FOREIGN-ADDRESS) (WANTQ :FOREIGN-ADDRESS)
   (WANTZ :FOREIGN-ADDRESS) (SELECT :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (ALPHAR :FOREIGN-ADDRESS) (ALPHAI :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS)
   (PL :FOREIGN-ADDRESS) (PR :FOREIGN-ADDRESS) (DIF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STGSEN
    (IJOB WANTQ WANTZ SELECT N A LDA B LDB ALPHAR ALPHAI BETA Q LDQ Z
     LDZ M PL PR DIF WORK LWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STGSEN)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ALPHAI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT PR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) DIF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF9151 ':INT32)
                              (WANTQ-REF9152 ':INT32)
                              (WANTZ-REF9153 ':INT32)
                              (N-REF9155 ':INT32) (LDA-REF9157 ':INT32)
                              (LDB-REF9159 ':INT32)
                              (LDQ-REF9164 ':INT32)
                              (LDZ-REF9166 ':INT32) (M-REF9167 ':INT32)
                              (PL-REF9168 ':FLOAT) (PR-REF9169 ':FLOAT)
                              (LWORK-REF9172 ':INT32)
                              (LIWORK-REF9174 ':INT32)
                              (INFO-REF9175 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF9151 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTQ-REF9152 :INT32) WANTQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9153 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9155 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9157 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9159 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9164 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9166 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9167 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF PL-REF9168 :FLOAT) PL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PR-REF9169 :FLOAT) PR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9172 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF9174 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9175 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF9154 SELECT)
                                            (A-REF9156 A)
                                            (B-REF9158 B)
                                            (ALPHAR-REF9160 ALPHAR)
                                            (ALPHAI-REF9161 ALPHAI)
                                            (BETA-REF9162 BETA)
                                            (Q-REF9163 Q)
                                            (Z-REF9165 Z)
                                            (DIF-REF9170 DIF)
                                            (WORK-REF9171 WORK)
                                            (IWORK-REF9173 IWORK))
      (%%STGSEN IJOB-REF9151 WANTQ-REF9152 WANTZ-REF9153 SELECT-REF9154
       N-REF9155 A-REF9156 LDA-REF9157 B-REF9158 LDB-REF9159
       ALPHAR-REF9160 ALPHAI-REF9161 BETA-REF9162 Q-REF9163 LDQ-REF9164
       Z-REF9165 LDZ-REF9166 M-REF9167 PL-REF9168 PR-REF9169
       DIF-REF9170 WORK-REF9171 LWORK-REF9172 IWORK-REF9173
       LIWORK-REF9174 INFO-REF9175))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAR1V "dlar1v_")
  ((N :FOREIGN-ADDRESS) (B1 :FOREIGN-ADDRESS) (BN :FOREIGN-ADDRESS)
   (LAMBDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (LD :FOREIGN-ADDRESS) (LLD :FOREIGN-ADDRESS)
   (PIVMIN :FOREIGN-ADDRESS) (GAPTOL :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (WANTNC :FOREIGN-ADDRESS)
   (NEGCNT :FOREIGN-ADDRESS) (ZTZ :FOREIGN-ADDRESS)
   (MINGMA :FOREIGN-ADDRESS) (R :FOREIGN-ADDRESS)
   (ISUPPZ :FOREIGN-ADDRESS) (NRMINV :FOREIGN-ADDRESS)
   (RESID :FOREIGN-ADDRESS) (RQCORR :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAR1V
    (N B1 BN LAMBDA D L LD LLD PIVMIN GAPTOL Z WANTNC NEGCNT ZTZ MINGMA
     R ISUPPZ NRMINV RESID RQCORR WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAR1V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) B1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) BN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT LAMBDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) LLD)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT GAPTOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTNC)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NEGCNT)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ZTZ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT MINGMA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    ISUPPZ)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT NRMINV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RESID)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RQCORR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9176 ':INT32) (B1-REF9177 ':INT32)
                              (BN-REF9178 ':INT32)
                              (LAMBDA-REF9179 ':DOUBLE)
                              (PIVMIN-REF9184 ':DOUBLE)
                              (GAPTOL-REF9185 ':DOUBLE)
                              (WANTNC-REF9187 ':INT32)
                              (NEGCNT-REF9188 ':INT32)
                              (ZTZ-REF9189 ':DOUBLE)
                              (MINGMA-REF9190 ':DOUBLE)
                              (R-REF9191 ':INT32)
                              (NRMINV-REF9193 ':DOUBLE)
                              (RESID-REF9194 ':DOUBLE)
                              (RQCORR-REF9195 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9176 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF B1-REF9177 :INT32) B1)
    (COMMON-LISP:SETF (CFFI:MEM-REF BN-REF9178 :INT32) BN)
    (COMMON-LISP:SETF (CFFI:MEM-REF LAMBDA-REF9179 :DOUBLE) LAMBDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF9184 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF GAPTOL-REF9185 :DOUBLE) GAPTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTNC-REF9187 :INT32) WANTNC)
    (COMMON-LISP:SETF (CFFI:MEM-REF NEGCNT-REF9188 :INT32) NEGCNT)
    (COMMON-LISP:SETF (CFFI:MEM-REF ZTZ-REF9189 :DOUBLE) ZTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINGMA-REF9190 :DOUBLE) MINGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF R-REF9191 :INT32) R)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRMINV-REF9193 :DOUBLE) NRMINV)
    (COMMON-LISP:SETF (CFFI:MEM-REF RESID-REF9194 :DOUBLE) RESID)
    (COMMON-LISP:SETF (CFFI:MEM-REF RQCORR-REF9195 :DOUBLE) RQCORR)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9180 D)
                                            (L-REF9181 L)
                                            (LD-REF9182 LD)
                                            (LLD-REF9183 LLD)
                                            (Z-REF9186 Z)
                                            (ISUPPZ-REF9192 ISUPPZ)
                                            (WORK-REF9196 WORK))
      (%%DLAR1V N-REF9176 B1-REF9177 BN-REF9178 LAMBDA-REF9179
       D-REF9180 L-REF9181 LD-REF9182 LLD-REF9183 PIVMIN-REF9184
       GAPTOL-REF9185 Z-REF9186 WANTNC-REF9187 NEGCNT-REF9188
       ZTZ-REF9189 MINGMA-REF9190 R-REF9191 ISUPPZ-REF9192
       NRMINV-REF9193 RESID-REF9194 RQCORR-REF9195 WORK-REF9196))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELQT "zgelqt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELQT (M N MB A LDA T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9197 ':INT32) (N-REF9198 ':INT32)
                              (MB-REF9199 ':INT32)
                              (LDA-REF9201 ':INT32)
                              (LDT-REF9203 ':INT32)
                              (INFO-REF9205 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9197 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9198 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF9199 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9201 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9203 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9205 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9200 A)
                                            (T-REF9202 T)
                                            (WORK-REF9204 WORK))
      (%%ZGELQT M-REF9197 N-REF9198 MB-REF9199 A-REF9200 LDA-REF9201
       T-REF9202 LDT-REF9203 WORK-REF9204 INFO-REF9205))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAMTSQR "dlamtsqr_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAMTSQR
    (SIDE TRANS M N K MB NB A LDA T LDT C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAMTSQR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9208 ':INT32) (N-REF9209 ':INT32)
                              (K-REF9210 ':INT32) (MB-REF9211 ':INT32)
                              (NB-REF9212 ':INT32)
                              (LDA-REF9214 ':INT32)
                              (LDT-REF9216 ':INT32)
                              (LDC-REF9218 ':INT32)
                              (LWORK-REF9220 ':INT32)
                              (INFO-REF9221 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9208 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9209 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9210 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF9211 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9212 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9214 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9216 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9218 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9220 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9221 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9213 A)
                                            (T-REF9215 T)
                                            (C-REF9217 C)
                                            (WORK-REF9219 WORK))
      (%%DLAMTSQR SIDE TRANS M-REF9208 N-REF9209 K-REF9210 MB-REF9211
       NB-REF9212 A-REF9213 LDA-REF9214 T-REF9215 LDT-REF9216 C-REF9217
       LDC-REF9218 WORK-REF9219 LWORK-REF9220 INFO-REF9221))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGEHD2 "sgehd2_")
  ((N :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGEHD2 (N ILO IHI A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEHD2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9222 ':INT32) (ILO-REF9223 ':INT32)
                              (IHI-REF9224 ':INT32)
                              (LDA-REF9226 ':INT32)
                              (INFO-REF9229 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9222 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9223 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9224 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9226 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9229 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9225 A)
                                            (TAU-REF9227 TAU)
                                            (WORK-REF9228 WORK))
      (%%SGEHD2 N-REF9222 ILO-REF9223 IHI-REF9224 A-REF9225 LDA-REF9226
       TAU-REF9227 WORK-REF9228 INFO-REF9229))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STRTTF "strttf_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ARF :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STRTTF (TRANSR UPLO N A LDA ARF INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRTTF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) ARF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9232 ':INT32) (LDA-REF9234 ':INT32)
                              (INFO-REF9236 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9232 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9234 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9236 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9233 A)
                                            (ARF-REF9235 ARF))
      (%%STRTTF TRANSR UPLO N-REF9232 A-REF9233 LDA-REF9234 ARF-REF9235
       INFO-REF9236))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%CLAUNHR_COL_GETRFNP "claunhr_col_getrfnp_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAUNHR_COL_GETRFNP (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAUNHR_COL_GETRFNP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9237 ':INT32) (N-REF9238 ':INT32)
                              (LDA-REF9240 ':INT32)
                              (INFO-REF9242 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9237 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9238 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9240 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9242 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9239 A)
                                            (D-REF9241 D))
      (%%CLAUNHR_COL_GETRFNP M-REF9237 N-REF9238 A-REF9239 LDA-REF9240
       D-REF9241 INFO-REF9242))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CTRSEN "ctrsen_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (COMPQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS)
   (W :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (SEP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CTRSEN
    (JOB COMPQ SELECT N T LDT Q LDQ W M S SEP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSEN)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING COMPQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SEP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9246 ':INT32) (LDT-REF9248 ':INT32)
                              (LDQ-REF9250 ':INT32) (M-REF9252 ':INT32)
                              (S-REF9253 ':FLOAT) (SEP-REF9254 ':FLOAT)
                              (LWORK-REF9256 ':INT32)
                              (INFO-REF9257 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9246 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9248 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9250 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9252 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF9253 :FLOAT) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF SEP-REF9254 :FLOAT) SEP)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9256 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9257 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF9245 SELECT)
                                            (T-REF9247 T)
                                            (Q-REF9249 Q)
                                            (W-REF9251 W)
                                            (WORK-REF9255 WORK))
      (%%CTRSEN JOB COMPQ SELECT-REF9245 N-REF9246 T-REF9247
       LDT-REF9248 Q-REF9249 LDQ-REF9250 W-REF9251 M-REF9252 S-REF9253
       SEP-REF9254 WORK-REF9255 LWORK-REF9256 INFO-REF9257))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTREVC "dtrevc_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (HOWMNY (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (SELECT :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (LDVL :FOREIGN-ADDRESS)
   (VR :FOREIGN-ADDRESS) (LDVR :FOREIGN-ADDRESS) (MM :FOREIGN-ADDRESS)
   (M :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTREVC
    (SIDE HOWMNY SELECT N T LDT VL LDVL VR LDVR MM M WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTREVC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING HOWMNY)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    SELECT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDVR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9261 ':INT32) (LDT-REF9263 ':INT32)
                              (LDVL-REF9265 ':INT32)
                              (LDVR-REF9267 ':INT32)
                              (MM-REF9268 ':INT32) (M-REF9269 ':INT32)
                              (INFO-REF9271 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9261 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9263 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVL-REF9265 :INT32) LDVL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDVR-REF9267 :INT32) LDVR)
    (COMMON-LISP:SETF (CFFI:MEM-REF MM-REF9268 :INT32) MM)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9269 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9271 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SELECT-REF9260 SELECT)
                                            (T-REF9262 T)
                                            (VL-REF9264 VL)
                                            (VR-REF9266 VR)
                                            (WORK-REF9270 WORK))
      (%%DTREVC SIDE HOWMNY SELECT-REF9260 N-REF9261 T-REF9262
       LDT-REF9263 VL-REF9264 LDVL-REF9265 VR-REF9266 LDVR-REF9267
       MM-REF9268 M-REF9269 WORK-REF9270 INFO-REF9271))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYGVX "dsygvx_")
  ((ITYPE :FOREIGN-ADDRESS)
   (JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (VU :FOREIGN-ADDRESS)
   (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYGVX
    (ITYPE JOBZ RANGE UPLO N A LDA B LDB VL VU IL IU ABSTOL M W Z LDZ
     WORK LWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYGVX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITYPE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ITYPE-REF9272 ':INT32)
                              (N-REF9276 ':INT32) (LDA-REF9278 ':INT32)
                              (LDB-REF9280 ':INT32)
                              (VL-REF9281 ':DOUBLE)
                              (VU-REF9282 ':DOUBLE)
                              (IL-REF9283 ':INT32) (IU-REF9284 ':INT32)
                              (ABSTOL-REF9285 ':DOUBLE)
                              (M-REF9286 ':INT32) (LDZ-REF9289 ':INT32)
                              (LWORK-REF9291 ':INT32)
                              (INFO-REF9294 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ITYPE-REF9272 :INT32) ITYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9278 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9280 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9281 :DOUBLE) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9282 :DOUBLE) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9283 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9284 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9285 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9286 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9289 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9291 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9294 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9277 A)
                                            (B-REF9279 B)
                                            (W-REF9287 W)
                                            (Z-REF9288 Z)
                                            (WORK-REF9290 WORK)
                                            (IWORK-REF9292 IWORK)
                                            (IFAIL-REF9293 IFAIL))
      (%%DSYGVX ITYPE-REF9272 JOBZ RANGE UPLO N-REF9276 A-REF9277
       LDA-REF9278 B-REF9279 LDB-REF9280 VL-REF9281 VU-REF9282
       IL-REF9283 IU-REF9284 ABSTOL-REF9285 M-REF9286 W-REF9287
       Z-REF9288 LDZ-REF9289 WORK-REF9290 LWORK-REF9291 IWORK-REF9292
       IFAIL-REF9293 INFO-REF9294))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORBDB6 "sorbdb6_")
  ((M1 :FOREIGN-ADDRESS) (M2 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (X1 :FOREIGN-ADDRESS) (INCX1 :FOREIGN-ADDRESS) (X2 :FOREIGN-ADDRESS)
   (INCX2 :FOREIGN-ADDRESS) (Q1 :FOREIGN-ADDRESS)
   (LDQ1 :FOREIGN-ADDRESS) (Q2 :FOREIGN-ADDRESS)
   (LDQ2 :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORBDB6
    (M1 M2 N X1 INCX1 X2 INCX2 Q1 LDQ1 Q2 LDQ2 WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORBDB6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M1-REF9295 ':INT32) (M2-REF9296 ':INT32)
                              (N-REF9297 ':INT32)
                              (INCX1-REF9299 ':INT32)
                              (INCX2-REF9301 ':INT32)
                              (LDQ1-REF9303 ':INT32)
                              (LDQ2-REF9305 ':INT32)
                              (LWORK-REF9307 ':INT32)
                              (INFO-REF9308 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M1-REF9295 :INT32) M1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M2-REF9296 :INT32) M2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9297 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX1-REF9299 :INT32) INCX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX2-REF9301 :INT32) INCX2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ1-REF9303 :INT32) LDQ1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ2-REF9305 :INT32) LDQ2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9307 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9308 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X1-REF9298 X1)
                                            (X2-REF9300 X2)
                                            (Q1-REF9302 Q1)
                                            (Q2-REF9304 Q2)
                                            (WORK-REF9306 WORK))
      (%%SORBDB6 M1-REF9295 M2-REF9296 N-REF9297 X1-REF9298
       INCX1-REF9299 X2-REF9300 INCX2-REF9301 Q1-REF9302 LDQ1-REF9303
       Q2-REF9304 LDQ2-REF9305 WORK-REF9306 LWORK-REF9307
       INFO-REF9308))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPTRS "dsptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPTRS (UPLO N NRHS AP IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9310 ':INT32)
                              (NRHS-REF9311 ':INT32)
                              (LDB-REF9315 ':INT32)
                              (INFO-REF9316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9310 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9311 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9315 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9316 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9312 AP)
                                            (IPIV-REF9313 IPIV)
                                            (B-REF9314 B))
      (%%DSPTRS UPLO N-REF9310 NRHS-REF9311 AP-REF9312 IPIV-REF9313
       B-REF9314 LDB-REF9315 INFO-REF9316))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPPTRS "dpptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPPTRS (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9318 ':INT32)
                              (NRHS-REF9319 ':INT32)
                              (LDB-REF9322 ':INT32)
                              (INFO-REF9323 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9318 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9319 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9322 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9323 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9320 AP)
                                            (B-REF9321 B))
      (%%DPPTRS UPLO N-REF9318 NRHS-REF9319 AP-REF9320 B-REF9321
       LDB-REF9322 INFO-REF9323))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGEBRD "dgebrd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGEBRD (M N A LDA D E TAUQ TAUP WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEBRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9324 ':INT32) (N-REF9325 ':INT32)
                              (LDA-REF9327 ':INT32)
                              (LWORK-REF9333 ':INT32)
                              (INFO-REF9334 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9324 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9325 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9327 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9333 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9334 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9326 A)
                                            (D-REF9328 D)
                                            (E-REF9329 E)
                                            (TAUQ-REF9330 TAUQ)
                                            (TAUP-REF9331 TAUP)
                                            (WORK-REF9332 WORK))
      (%%DGEBRD M-REF9324 N-REF9325 A-REF9326 LDA-REF9327 D-REF9328
       E-REF9329 TAUQ-REF9330 TAUP-REF9331 WORK-REF9332 LWORK-REF9333
       INFO-REF9334))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAPY3 "dlapy3_")
  ((X :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAPY3 (X Y Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAPY3)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT X)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Y)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((X-REF9335 ':DOUBLE) (Y-REF9336 ':DOUBLE)
                              (Z-REF9337 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF X-REF9335 :DOUBLE) X)
    (COMMON-LISP:SETF (CFFI:MEM-REF Y-REF9336 :DOUBLE) Y)
    (COMMON-LISP:SETF (CFFI:MEM-REF Z-REF9337 :DOUBLE) Z)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAPY3 X-REF9335 Y-REF9336 Z-REF9337))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_SYRCOND_C "zla_syrcond_c_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (CAPPLY :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_SYRCOND_C
    (UPLO N A LDA AF LDAF IPIV C CAPPLY INFO WORK RWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_SYRCOND_C)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CAPPLY)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9339 ':INT32) (LDA-REF9341 ':INT32)
                              (LDAF-REF9343 ':INT32)
                              (CAPPLY-REF9346 ':INT32)
                              (INFO-REF9347 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9339 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9341 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9343 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CAPPLY-REF9346 :INT32) CAPPLY)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9347 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9340 A)
                                            (AF-REF9342 AF)
                                            (IPIV-REF9344 IPIV)
                                            (C-REF9345 C)
                                            (WORK-REF9348 WORK)
                                            (RWORK-REF9349 RWORK))
      (%%ZLA_SYRCOND_C UPLO N-REF9339 A-REF9340 LDA-REF9341 AF-REF9342
       LDAF-REF9343 IPIV-REF9344 C-REF9345 CAPPLY-REF9346 INFO-REF9347
       WORK-REF9348 RWORK-REF9349))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAHEF_AA "clahef_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (J1 :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAHEF_AA (UPLO J1 M NB A LDA IPIV H LDH WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) J1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((J1-REF9351 ':INT32) (M-REF9352 ':INT32)
                              (NB-REF9353 ':INT32)
                              (LDA-REF9355 ':INT32)
                              (LDH-REF9358 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF J1-REF9351 :INT32) J1)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9352 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9353 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9355 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF9358 :INT32) LDH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9354 A)
                                            (IPIV-REF9356 IPIV)
                                            (H-REF9357 H)
                                            (WORK-REF9359 WORK))
      (%%CLAHEF_AA UPLO J1-REF9351 M-REF9352 NB-REF9353 A-REF9354
       LDA-REF9355 IPIV-REF9356 H-REF9357 LDH-REF9358 WORK-REF9359))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLATRZ "zlatrz_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLATRZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9360 ':INT32) (N-REF9361 ':INT32)
                              (L-REF9362 ':INT32)
                              (LDA-REF9364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9360 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9361 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9362 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9364 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9363 A)
                                            (TAU-REF9365 TAU)
                                            (WORK-REF9366 WORK))
      (%%ZLATRZ M-REF9360 N-REF9361 L-REF9362 A-REF9363 LDA-REF9364
       TAU-REF9365 WORK-REF9366))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUPGTR "cupgtr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUPGTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9368 ':INT32) (LDQ-REF9372 ':INT32)
                              (INFO-REF9374 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9372 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9374 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9369 AP)
                                            (TAU-REF9370 TAU)
                                            (Q-REF9371 Q)
                                            (WORK-REF9373 WORK))
      (%%CUPGTR UPLO N-REF9368 AP-REF9369 TAU-REF9370 Q-REF9371
       LDQ-REF9372 WORK-REF9373 INFO-REF9374))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DTRTRI "dtrtri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DTRTRI (UPLO DIAG N A LDA INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRTRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9377 ':INT32) (LDA-REF9379 ':INT32)
                              (INFO-REF9380 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9379 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9380 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9378 A))
      (%%DTRTRI UPLO DIAG N-REF9377 A-REF9378 LDA-REF9379
       INFO-REF9380))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_PORPVGRW "sla_porpvgrw_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (NCOLS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_PORPVGRW (UPLO NCOLS A LDA AF LDAF WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_PORPVGRW)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NCOLS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((NCOLS-REF9382 ':INT32)
                              (LDA-REF9384 ':INT32)
                              (LDAF-REF9386 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF NCOLS-REF9382 :INT32) NCOLS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9384 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9386 :INT32) LDAF)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9383 A)
                                            (AF-REF9385 AF)
                                            (WORK-REF9387 WORK))
      (%%SLA_PORPVGRW UPLO NCOLS-REF9382 A-REF9383 LDA-REF9384
       AF-REF9385 LDAF-REF9386 WORK-REF9387))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGELQT3 "sgelqt3_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGELQT3 (M N A LDA T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQT3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9388 ':INT32) (N-REF9389 ':INT32)
                              (LDA-REF9391 ':INT32)
                              (LDT-REF9393 ':INT32)
                              (INFO-REF9394 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9388 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9389 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9391 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9393 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9394 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9390 A)
                                            (T-REF9392 T))
      (%%SGELQT3 M-REF9388 N-REF9389 A-REF9390 LDA-REF9391 T-REF9392
       LDT-REF9393 INFO-REF9394))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGGBAL "cggbal_")
  ((JOB (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (ILO :FOREIGN-ADDRESS) (IHI :FOREIGN-ADDRESS)
   (LSCALE :FOREIGN-ADDRESS) (RSCALE :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGGBAL
    (JOB N A LDA B LDB ILO IHI LSCALE RSCALE WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGGBAL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) LSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RSCALE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9396 ':INT32) (LDA-REF9398 ':INT32)
                              (LDB-REF9400 ':INT32)
                              (ILO-REF9401 ':INT32)
                              (IHI-REF9402 ':INT32)
                              (INFO-REF9406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9396 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9398 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9400 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILO-REF9401 :INT32) ILO)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHI-REF9402 :INT32) IHI)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9406 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9397 A)
                                            (B-REF9399 B)
                                            (LSCALE-REF9403 LSCALE)
                                            (RSCALE-REF9404 RSCALE)
                                            (WORK-REF9405 WORK))
      (%%CGGBAL JOB N-REF9396 A-REF9397 LDA-REF9398 B-REF9399
       LDB-REF9400 ILO-REF9401 IHI-REF9402 LSCALE-REF9403
       RSCALE-REF9404 WORK-REF9405 INFO-REF9406))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQR2 "dlaqr2_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS) (ND :FOREIGN-ADDRESS)
   (SR :FOREIGN-ADDRESS) (SI :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS)
   (LDV :FOREIGN-ADDRESS) (NH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS)
   (LDWV :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQR2
    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SR SI V LDV
     NH T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF9407 ':INT32)
                              (WANTZ-REF9408 ':INT32)
                              (N-REF9409 ':INT32)
                              (KTOP-REF9410 ':INT32)
                              (KBOT-REF9411 ':INT32)
                              (NW-REF9412 ':INT32)
                              (LDH-REF9414 ':INT32)
                              (ILOZ-REF9415 ':INT32)
                              (IHIZ-REF9416 ':INT32)
                              (LDZ-REF9418 ':INT32)
                              (NS-REF9419 ':INT32) (ND-REF9420 ':INT32)
                              (LDV-REF9424 ':INT32)
                              (NH-REF9425 ':INT32)
                              (LDT-REF9427 ':INT32)
                              (NV-REF9428 ':INT32)
                              (LDWV-REF9430 ':INT32)
                              (LWORK-REF9432 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF9407 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9408 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9409 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF9410 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF9411 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF9412 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF9414 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF9415 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF9416 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9418 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF9419 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF9420 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF9424 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF9425 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9427 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF9428 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF9430 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9432 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF9413 H)
                                            (Z-REF9417 Z)
                                            (SR-REF9421 SR)
                                            (SI-REF9422 SI)
                                            (V-REF9423 V)
                                            (T-REF9426 T)
                                            (WV-REF9429 WV)
                                            (WORK-REF9431 WORK))
      (%%DLAQR2 WANTT-REF9407 WANTZ-REF9408 N-REF9409 KTOP-REF9410
       KBOT-REF9411 NW-REF9412 H-REF9413 LDH-REF9414 ILOZ-REF9415
       IHIZ-REF9416 Z-REF9417 LDZ-REF9418 NS-REF9419 ND-REF9420
       SR-REF9421 SI-REF9422 V-REF9423 LDV-REF9424 NH-REF9425 T-REF9426
       LDT-REF9427 NV-REF9428 WV-REF9429 LDWV-REF9430 WORK-REF9431
       LWORK-REF9432))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGBSV "sgbsv_")
  ((N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGBSV (N KL KU NRHS AB LDAB IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9433 ':INT32) (KL-REF9434 ':INT32)
                              (KU-REF9435 ':INT32)
                              (NRHS-REF9436 ':INT32)
                              (LDAB-REF9438 ':INT32)
                              (LDB-REF9441 ':INT32)
                              (INFO-REF9442 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9433 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF9434 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF9435 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9436 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9438 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9441 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9442 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9437 AB)
                                            (IPIV-REF9439 IPIV)
                                            (B-REF9440 B))
      (%%SGBSV N-REF9433 KL-REF9434 KU-REF9435 NRHS-REF9436 AB-REF9437
       LDAB-REF9438 IPIV-REF9439 B-REF9440 LDB-REF9441 INFO-REF9442))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHERFS "zherfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (AF :FOREIGN-ADDRESS) (LDAF :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHERFS
    (UPLO N NRHS A LDA AF LDAF IPIV B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHERFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9444 ':INT32)
                              (NRHS-REF9445 ':INT32)
                              (LDA-REF9447 ':INT32)
                              (LDAF-REF9449 ':INT32)
                              (LDB-REF9452 ':INT32)
                              (LDX-REF9454 ':INT32)
                              (INFO-REF9459 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9444 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9445 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9447 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9449 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9452 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9454 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9459 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9446 A)
                                            (AF-REF9448 AF)
                                            (IPIV-REF9450 IPIV)
                                            (B-REF9451 B)
                                            (X-REF9453 X)
                                            (FERR-REF9455 FERR)
                                            (BERR-REF9456 BERR)
                                            (WORK-REF9457 WORK)
                                            (RWORK-REF9458 RWORK))
      (%%ZHERFS UPLO N-REF9444 NRHS-REF9445 A-REF9446 LDA-REF9447
       AF-REF9448 LDAF-REF9449 IPIV-REF9450 B-REF9451 LDB-REF9452
       X-REF9453 LDX-REF9454 FERR-REF9455 BERR-REF9456 WORK-REF9457
       RWORK-REF9458 INFO-REF9459))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASQ3 "dlasq3_")
  ((I0 :FOREIGN-ADDRESS) (N0 :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (PP :FOREIGN-ADDRESS) (DMIN :FOREIGN-ADDRESS)
   (SIGMA :FOREIGN-ADDRESS) (DESIG :FOREIGN-ADDRESS)
   (QMAX :FOREIGN-ADDRESS) (NFAIL :FOREIGN-ADDRESS)
   (ITER :FOREIGN-ADDRESS) (NDIV :FOREIGN-ADDRESS)
   (IEEE :FOREIGN-ADDRESS) (TTYPE :FOREIGN-ADDRESS)
   (DMIN1 :FOREIGN-ADDRESS) (DMIN2 :FOREIGN-ADDRESS)
   (DN :FOREIGN-ADDRESS) (DN1 :FOREIGN-ADDRESS) (DN2 :FOREIGN-ADDRESS)
   (G :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASQ3
    (I0 N0 Z PP DMIN SIGMA DESIG QMAX NFAIL ITER NDIV IEEE TTYPE DMIN1
     DMIN2 DN DN1 DN2 G TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASQ3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) I0)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N0)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) PP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SIGMA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DESIG)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT QMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ITER)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NDIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IEEE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TTYPE)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DMIN2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DN2)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT G)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((I0-REF9460 ':INT32) (N0-REF9461 ':INT32)
                              (PP-REF9463 ':INT32)
                              (DMIN-REF9464 ':DOUBLE)
                              (SIGMA-REF9465 ':DOUBLE)
                              (DESIG-REF9466 ':DOUBLE)
                              (QMAX-REF9467 ':DOUBLE)
                              (NFAIL-REF9468 ':INT32)
                              (ITER-REF9469 ':INT32)
                              (NDIV-REF9470 ':INT32)
                              (IEEE-REF9471 ':INT32)
                              (TTYPE-REF9472 ':INT32)
                              (DMIN1-REF9473 ':DOUBLE)
                              (DMIN2-REF9474 ':DOUBLE)
                              (DN-REF9475 ':DOUBLE)
                              (DN1-REF9476 ':DOUBLE)
                              (DN2-REF9477 ':DOUBLE)
                              (G-REF9478 ':DOUBLE)
                              (TAU-REF9479 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF I0-REF9460 :INT32) I0)
    (COMMON-LISP:SETF (CFFI:MEM-REF N0-REF9461 :INT32) N0)
    (COMMON-LISP:SETF (CFFI:MEM-REF PP-REF9463 :INT32) PP)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN-REF9464 :DOUBLE) DMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF SIGMA-REF9465 :DOUBLE) SIGMA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DESIG-REF9466 :DOUBLE) DESIG)
    (COMMON-LISP:SETF (CFFI:MEM-REF QMAX-REF9467 :DOUBLE) QMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF NFAIL-REF9468 :INT32) NFAIL)
    (COMMON-LISP:SETF (CFFI:MEM-REF ITER-REF9469 :INT32) ITER)
    (COMMON-LISP:SETF (CFFI:MEM-REF NDIV-REF9470 :INT32) NDIV)
    (COMMON-LISP:SETF (CFFI:MEM-REF IEEE-REF9471 :INT32) IEEE)
    (COMMON-LISP:SETF (CFFI:MEM-REF TTYPE-REF9472 :INT32) TTYPE)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN1-REF9473 :DOUBLE) DMIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DMIN2-REF9474 :DOUBLE) DMIN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN-REF9475 :DOUBLE) DN)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN1-REF9476 :DOUBLE) DN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DN2-REF9477 :DOUBLE) DN2)
    (COMMON-LISP:SETF (CFFI:MEM-REF G-REF9478 :DOUBLE) G)
    (COMMON-LISP:SETF (CFFI:MEM-REF TAU-REF9479 :DOUBLE) TAU)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((Z-REF9462 Z))
      (%%DLASQ3 I0-REF9460 N0-REF9461 Z-REF9462 PP-REF9463 DMIN-REF9464
       SIGMA-REF9465 DESIG-REF9466 QMAX-REF9467 NFAIL-REF9468
       ITER-REF9469 NDIV-REF9470 IEEE-REF9471 TTYPE-REF9472
       DMIN1-REF9473 DMIN2-REF9474 DN-REF9475 DN1-REF9476 DN2-REF9477
       G-REF9478 TAU-REF9479))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSPCON "dspcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSPCON (UPLO N AP IPIV ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9481 ':INT32)
                              (ANORM-REF9484 ':DOUBLE)
                              (RCOND-REF9485 ':DOUBLE)
                              (INFO-REF9488 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9481 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9484 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9485 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9488 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9482 AP)
                                            (IPIV-REF9483 IPIV)
                                            (WORK-REF9486 WORK)
                                            (IWORK-REF9487 IWORK))
      (%%DSPCON UPLO N-REF9481 AP-REF9482 IPIV-REF9483 ANORM-REF9484
       RCOND-REF9485 WORK-REF9486 IWORK-REF9487 INFO-REF9488))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHETF2_RK "zhetf2_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHETF2_RK (UPLO N A LDA E IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHETF2_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9490 ':INT32) (LDA-REF9492 ':INT32)
                              (INFO-REF9495 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9490 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9492 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9495 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9491 A)
                                            (E-REF9493 E)
                                            (IPIV-REF9494 IPIV))
      (%%ZHETF2_RK UPLO N-REF9490 A-REF9491 LDA-REF9492 E-REF9493
       IPIV-REF9494 INFO-REF9495))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANSY "slansy_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANSY (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANSY)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9498 ':INT32)
                              (LDA-REF9500 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9498 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9500 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9499 A)
                                            (WORK-REF9501 WORK))
      (%%SLANSY NORM UPLO N-REF9498 A-REF9499 LDA-REF9500
       WORK-REF9501))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGELQ2 "sgelq2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGELQ2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9502 ':INT32) (N-REF9503 ':INT32)
                              (LDA-REF9505 ':INT32)
                              (INFO-REF9508 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9502 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9503 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9505 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9508 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9504 A)
                                            (TAU-REF9506 TAU)
                                            (WORK-REF9507 WORK))
      (%%SGELQ2 M-REF9502 N-REF9503 A-REF9504 LDA-REF9505 TAU-REF9506
       WORK-REF9507 INFO-REF9508))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAGTM "zlagtm_")
  ((TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (DL :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (DU :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAGTM
    (TRANS N NRHS ALPHA DL D DU X LDX BETA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAGTM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    DU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9510 ':INT32)
                              (NRHS-REF9511 ':INT32)
                              (ALPHA-REF9512 ':DOUBLE)
                              (LDX-REF9517 ':INT32)
                              (BETA-REF9518 ':DOUBLE)
                              (LDB-REF9520 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9510 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9511 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF9512 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9517 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF9518 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9520 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DL-REF9513 DL)
                                            (D-REF9514 D)
                                            (DU-REF9515 DU)
                                            (X-REF9516 X)
                                            (B-REF9519 B))
      (%%ZLAGTM TRANS N-REF9510 NRHS-REF9511 ALPHA-REF9512 DL-REF9513
       D-REF9514 DU-REF9515 X-REF9516 LDX-REF9517 BETA-REF9518
       B-REF9519 LDB-REF9520))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAQR5 "dlaqr5_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (KACC22 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NSHFTS :FOREIGN-ADDRESS) (SR :FOREIGN-ADDRESS)
   (SI :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (NV :FOREIGN-ADDRESS)
   (WV :FOREIGN-ADDRESS) (LDWV :FOREIGN-ADDRESS) (NH :FOREIGN-ADDRESS)
   (WH :FOREIGN-ADDRESS) (LDWH :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAQR5
    (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS SR SI H LDH ILOZ IHIZ Z LDZ
     V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAQR5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF9521 ':INT32)
                              (WANTZ-REF9522 ':INT32)
                              (KACC22-REF9523 ':INT32)
                              (N-REF9524 ':INT32)
                              (KTOP-REF9525 ':INT32)
                              (KBOT-REF9526 ':INT32)
                              (NSHFTS-REF9527 ':INT32)
                              (LDH-REF9531 ':INT32)
                              (ILOZ-REF9532 ':INT32)
                              (IHIZ-REF9533 ':INT32)
                              (LDZ-REF9535 ':INT32)
                              (LDV-REF9537 ':INT32)
                              (LDU-REF9539 ':INT32)
                              (NV-REF9540 ':INT32)
                              (LDWV-REF9542 ':INT32)
                              (NH-REF9543 ':INT32)
                              (LDWH-REF9545 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF9521 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9522 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF9523 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9524 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF9525 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF9526 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF9527 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF9531 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF9532 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF9533 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9535 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF9537 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF9539 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF9540 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF9542 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF9543 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF9545 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF9528 SR)
                                            (SI-REF9529 SI)
                                            (H-REF9530 H)
                                            (Z-REF9534 Z)
                                            (V-REF9536 V)
                                            (U-REF9538 U)
                                            (WV-REF9541 WV)
                                            (WH-REF9544 WH))
      (%%DLAQR5 WANTT-REF9521 WANTZ-REF9522 KACC22-REF9523 N-REF9524
       KTOP-REF9525 KBOT-REF9526 NSHFTS-REF9527 SR-REF9528 SI-REF9529
       H-REF9530 LDH-REF9531 ILOZ-REF9532 IHIZ-REF9533 Z-REF9534
       LDZ-REF9535 V-REF9536 LDV-REF9537 U-REF9538 LDU-REF9539
       NV-REF9540 WV-REF9541 LDWV-REF9542 NH-REF9543 WH-REF9544
       LDWH-REF9545))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLABRD "zlabrd_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (TAUQ :FOREIGN-ADDRESS) (TAUP :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (LDY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLABRD (M N NB A LDA D E TAUQ TAUP X LDX Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLABRD)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAUP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9546 ':INT32) (N-REF9547 ':INT32)
                              (NB-REF9548 ':INT32)
                              (LDA-REF9550 ':INT32)
                              (LDX-REF9556 ':INT32)
                              (LDY-REF9558 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9546 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9547 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9548 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9550 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9556 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF9558 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9549 A)
                                            (D-REF9551 D)
                                            (E-REF9552 E)
                                            (TAUQ-REF9553 TAUQ)
                                            (TAUP-REF9554 TAUP)
                                            (X-REF9555 X)
                                            (Y-REF9557 Y))
      (%%ZLABRD M-REF9546 N-REF9547 NB-REF9548 A-REF9549 LDA-REF9550
       D-REF9551 E-REF9552 TAUQ-REF9553 TAUP-REF9554 X-REF9555
       LDX-REF9556 Y-REF9557 LDY-REF9558))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRF_ROOK "chetrf_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRF_ROOK (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRF_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9560 ':INT32) (LDA-REF9562 ':INT32)
                              (LWORK-REF9565 ':INT32)
                              (INFO-REF9566 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9560 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9562 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9565 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9566 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9561 A)
                                            (IPIV-REF9563 IPIV)
                                            (WORK-REF9564 WORK))
      (%%CHETRF_ROOK UPLO N-REF9560 A-REF9561 LDA-REF9562 IPIV-REF9563
       WORK-REF9564 LWORK-REF9565 INFO-REF9566))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHBEVX "chbevx_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (RANGE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (Q :FOREIGN-ADDRESS) (LDQ :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS)
   (VU :FOREIGN-ADDRESS) (IL :FOREIGN-ADDRESS) (IU :FOREIGN-ADDRESS)
   (ABSTOL :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (LDZ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (IFAIL :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHBEVX
    (JOBZ RANGE UPLO N KD AB LDAB Q LDQ VL VU IL IU ABSTOL M W Z LDZ
     WORK RWORK IWORK IFAIL INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBEVX)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING RANGE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VL)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT VU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IU)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IFAIL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9570 ':INT32) (KD-REF9571 ':INT32)
                              (LDAB-REF9573 ':INT32)
                              (LDQ-REF9575 ':INT32)
                              (VL-REF9576 ':FLOAT) (VU-REF9577 ':FLOAT)
                              (IL-REF9578 ':INT32) (IU-REF9579 ':INT32)
                              (ABSTOL-REF9580 ':FLOAT)
                              (M-REF9581 ':INT32) (LDZ-REF9584 ':INT32)
                              (INFO-REF9589 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9570 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF9571 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9573 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9575 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF VL-REF9576 :FLOAT) VL)
    (COMMON-LISP:SETF (CFFI:MEM-REF VU-REF9577 :FLOAT) VU)
    (COMMON-LISP:SETF (CFFI:MEM-REF IL-REF9578 :INT32) IL)
    (COMMON-LISP:SETF (CFFI:MEM-REF IU-REF9579 :INT32) IU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9580 :FLOAT) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9581 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9584 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9589 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9572 AB)
                                            (Q-REF9574 Q)
                                            (W-REF9582 W)
                                            (Z-REF9583 Z)
                                            (WORK-REF9585 WORK)
                                            (RWORK-REF9586 RWORK)
                                            (IWORK-REF9587 IWORK)
                                            (IFAIL-REF9588 IFAIL))
      (%%CHBEVX JOBZ RANGE UPLO N-REF9570 KD-REF9571 AB-REF9572
       LDAB-REF9573 Q-REF9574 LDQ-REF9575 VL-REF9576 VU-REF9577
       IL-REF9578 IU-REF9579 ABSTOL-REF9580 M-REF9581 W-REF9582
       Z-REF9583 LDZ-REF9584 WORK-REF9585 RWORK-REF9586 IWORK-REF9587
       IFAIL-REF9588 INFO-REF9589))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLALSA "zlalsa_")
  ((ICOMPQ :FOREIGN-ADDRESS) (SMLSIZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (BX :FOREIGN-ADDRESS) (LDBX :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (VT :FOREIGN-ADDRESS)
   (K :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS) (DIFR :FOREIGN-ADDRESS)
   (Z :FOREIGN-ADDRESS) (POLES :FOREIGN-ADDRESS)
   (GIVPTR :FOREIGN-ADDRESS) (GIVCOL :FOREIGN-ADDRESS)
   (LDGCOL :FOREIGN-ADDRESS) (PERM :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLALSA
    (ICOMPQ SMLSIZ N NRHS B LDB BX LDBX U LDU VT K DIFL DIFR Z POLES
     GIVPTR GIVCOL LDGCOL PERM GIVNUM C S RWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLALSA)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SMLSIZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    BX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDBX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF9590 ':INT32)
                              (SMLSIZ-REF9591 ':INT32)
                              (N-REF9592 ':INT32)
                              (NRHS-REF9593 ':INT32)
                              (LDB-REF9595 ':INT32)
                              (LDBX-REF9597 ':INT32)
                              (LDU-REF9599 ':INT32)
                              (LDGCOL-REF9608 ':INT32)
                              (INFO-REF9615 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF9590 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF SMLSIZ-REF9591 :INT32) SMLSIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9592 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9593 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9595 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDBX-REF9597 :INT32) LDBX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF9599 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF9608 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9615 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((B-REF9594 B)
                                            (BX-REF9596 BX)
                                            (U-REF9598 U)
                                            (VT-REF9600 VT)
                                            (K-REF9601 K)
                                            (DIFL-REF9602 DIFL)
                                            (DIFR-REF9603 DIFR)
                                            (Z-REF9604 Z)
                                            (POLES-REF9605 POLES)
                                            (GIVPTR-REF9606 GIVPTR)
                                            (GIVCOL-REF9607 GIVCOL)
                                            (PERM-REF9609 PERM)
                                            (GIVNUM-REF9610 GIVNUM)
                                            (C-REF9611 C)
                                            (S-REF9612 S)
                                            (RWORK-REF9613 RWORK)
                                            (IWORK-REF9614 IWORK))
      (%%ZLALSA ICOMPQ-REF9590 SMLSIZ-REF9591 N-REF9592 NRHS-REF9593
       B-REF9594 LDB-REF9595 BX-REF9596 LDBX-REF9597 U-REF9598
       LDU-REF9599 VT-REF9600 K-REF9601 DIFL-REF9602 DIFR-REF9603
       Z-REF9604 POLES-REF9605 GIVPTR-REF9606 GIVCOL-REF9607
       LDGCOL-REF9608 PERM-REF9609 GIVNUM-REF9610 C-REF9611 S-REF9612
       RWORK-REF9613 IWORK-REF9614 INFO-REF9615))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAISNAN "dlaisnan_")
  ((DIN1 :FOREIGN-ADDRESS) (DIN2 :FOREIGN-ADDRESS)) :RETURNING
  (:INT (COMMON-LISP:SIGNED-BYTE 32)) :RELEASE-HEAP :NEVER :ALLOW-GC
  :NEVER)

(COMMON-LISP:DEFUN %DLAISNAN (DIN1 DIN2)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAISNAN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN1)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DIN2))
  (CFFI:WITH-FOREIGN-OBJECTS ((DIN1-REF9616 ':DOUBLE)
                              (DIN2-REF9617 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN1-REF9616 :DOUBLE) DIN1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DIN2-REF9617 :DOUBLE) DIN2)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DLAISNAN DIN1-REF9616 DIN2-REF9617))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHFRK "zhfrk_")
  ((TRANSR (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHFRK (TRANSR UPLO TRANS N K ALPHA A LDA BETA C)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHFRK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9621 ':INT32) (K-REF9622 ':INT32)
                              (ALPHA-REF9623 ':DOUBLE)
                              (LDA-REF9625 ':INT32)
                              (BETA-REF9626 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9621 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9622 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF9623 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9625 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF9626 :DOUBLE) BETA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9624 A)
                                            (C-REF9627 C))
      (%%ZHFRK TRANSR UPLO TRANS N-REF9621 K-REF9622 ALPHA-REF9623
       A-REF9624 LDA-REF9625 BETA-REF9626 C-REF9627))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPSTRF "spstrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (PIV :FOREIGN-ADDRESS)
   (RANK :FOREIGN-ADDRESS) (TOL :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPSTRF (UPLO N A LDA PIV RANK TOL WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPSTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) RANK)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9629 ':INT32) (LDA-REF9631 ':INT32)
                              (RANK-REF9633 ':INT32)
                              (TOL-REF9634 ':FLOAT)
                              (INFO-REF9636 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9629 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9631 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF RANK-REF9633 :INT32) RANK)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOL-REF9634 :FLOAT) TOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9636 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9630 A)
                                            (PIV-REF9632 PIV)
                                            (WORK-REF9635 WORK))
      (%%SPSTRF UPLO N-REF9629 A-REF9630 LDA-REF9631 PIV-REF9632
       RANK-REF9633 TOL-REF9634 WORK-REF9635 INFO-REF9636))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DPPRFS "dpprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DPPRFS
    (UPLO N NRHS AP AFP B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DPPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9638 ':INT32)
                              (NRHS-REF9639 ':INT32)
                              (LDB-REF9643 ':INT32)
                              (LDX-REF9645 ':INT32)
                              (INFO-REF9650 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9638 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9639 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9643 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9645 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9650 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9640 AP)
                                            (AFP-REF9641 AFP)
                                            (B-REF9642 B)
                                            (X-REF9644 X)
                                            (FERR-REF9646 FERR)
                                            (BERR-REF9647 BERR)
                                            (WORK-REF9648 WORK)
                                            (IWORK-REF9649 IWORK))
      (%%DPPRFS UPLO N-REF9638 NRHS-REF9639 AP-REF9640 AFP-REF9641
       B-REF9642 LDB-REF9643 X-REF9644 LDX-REF9645 FERR-REF9646
       BERR-REF9647 WORK-REF9648 IWORK-REF9649 INFO-REF9650))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTRRFS "ztrrfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTRRFS
    (UPLO TRANS DIAG N NRHS A LDA B LDB X LDX FERR BERR WORK RWORK
     INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9654 ':INT32)
                              (NRHS-REF9655 ':INT32)
                              (LDA-REF9657 ':INT32)
                              (LDB-REF9659 ':INT32)
                              (LDX-REF9661 ':INT32)
                              (INFO-REF9666 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9654 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9655 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9657 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9659 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF9661 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9666 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9656 A)
                                            (B-REF9658 B)
                                            (X-REF9660 X)
                                            (FERR-REF9662 FERR)
                                            (BERR-REF9663 BERR)
                                            (WORK-REF9664 WORK)
                                            (RWORK-REF9665 RWORK))
      (%%ZTRRFS UPLO TRANS DIAG N-REF9654 NRHS-REF9655 A-REF9656
       LDA-REF9657 B-REF9658 LDB-REF9659 X-REF9660 LDX-REF9661
       FERR-REF9662 BERR-REF9663 WORK-REF9664 RWORK-REF9665
       INFO-REF9666))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLAEBZ "dlaebz_")
  ((IJOB :FOREIGN-ADDRESS) (NITMAX :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (MMAX :FOREIGN-ADDRESS) (MINP :FOREIGN-ADDRESS)
   (NBMIN :FOREIGN-ADDRESS) (ABSTOL :FOREIGN-ADDRESS)
   (RELTOL :FOREIGN-ADDRESS) (PIVMIN :FOREIGN-ADDRESS)
   (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS) (E2 :FOREIGN-ADDRESS)
   (NVAL :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (MOUT :FOREIGN-ADDRESS) (NAB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLAEBZ
    (IJOB NITMAX N MMAX MINP NBMIN ABSTOL RELTOL PIVMIN D E E2 NVAL AB
     C MOUT NAB WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLAEBZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IJOB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NITMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MINP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NBMIN)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ABSTOL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RELTOL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT PIVMIN)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) E2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    NVAL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MOUT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    NAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((IJOB-REF9667 ':INT32)
                              (NITMAX-REF9668 ':INT32)
                              (N-REF9669 ':INT32)
                              (MMAX-REF9670 ':INT32)
                              (MINP-REF9671 ':INT32)
                              (NBMIN-REF9672 ':INT32)
                              (ABSTOL-REF9673 ':DOUBLE)
                              (RELTOL-REF9674 ':DOUBLE)
                              (PIVMIN-REF9675 ':DOUBLE)
                              (MOUT-REF9682 ':INT32)
                              (INFO-REF9686 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IJOB-REF9667 :INT32) IJOB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NITMAX-REF9668 :INT32) NITMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9669 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MMAX-REF9670 :INT32) MMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF MINP-REF9671 :INT32) MINP)
    (COMMON-LISP:SETF (CFFI:MEM-REF NBMIN-REF9672 :INT32) NBMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF ABSTOL-REF9673 :DOUBLE) ABSTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF RELTOL-REF9674 :DOUBLE) RELTOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF PIVMIN-REF9675 :DOUBLE) PIVMIN)
    (COMMON-LISP:SETF (CFFI:MEM-REF MOUT-REF9682 :INT32) MOUT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9686 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9676 D)
                                            (E-REF9677 E)
                                            (E2-REF9678 E2)
                                            (NVAL-REF9679 NVAL)
                                            (AB-REF9680 AB)
                                            (C-REF9681 C)
                                            (NAB-REF9683 NAB)
                                            (WORK-REF9684 WORK)
                                            (IWORK-REF9685 IWORK))
      (%%DLAEBZ IJOB-REF9667 NITMAX-REF9668 N-REF9669 MMAX-REF9670
       MINP-REF9671 NBMIN-REF9672 ABSTOL-REF9673 RELTOL-REF9674
       PIVMIN-REF9675 D-REF9676 E-REF9677 E2-REF9678 NVAL-REF9679
       AB-REF9680 C-REF9681 MOUT-REF9682 NAB-REF9683 WORK-REF9684
       IWORK-REF9685 INFO-REF9686))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL
  (%%SLAORHR_COL_GETRFNP2 "slaorhr_col_getrfnp2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAORHR_COL_GETRFNP2 (M N A LDA D INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAORHR_COL_GETRFNP2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9687 ':INT32) (N-REF9688 ':INT32)
                              (LDA-REF9690 ':INT32)
                              (INFO-REF9692 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9687 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9688 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9690 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9692 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9689 A)
                                            (D-REF9691 D))
      (%%SLAORHR_COL_GETRFNP2 M-REF9687 N-REF9688 A-REF9689 LDA-REF9690
       D-REF9691 INFO-REF9692))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPLQT "stplqt_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (MB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS)
   (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPLQT (M N L MB A LDA B LDB T LDT WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPLQT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9693 ':INT32) (N-REF9694 ':INT32)
                              (L-REF9695 ':INT32) (MB-REF9696 ':INT32)
                              (LDA-REF9698 ':INT32)
                              (LDB-REF9700 ':INT32)
                              (LDT-REF9702 ':INT32)
                              (INFO-REF9704 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9693 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9694 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9695 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF9696 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9698 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9700 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9702 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9704 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9697 A)
                                            (B-REF9699 B)
                                            (T-REF9701 T)
                                            (WORK-REF9703 WORK))
      (%%STPLQT M-REF9693 N-REF9694 L-REF9695 MB-REF9696 A-REF9697
       LDA-REF9698 B-REF9699 LDB-REF9700 T-REF9701 LDT-REF9702
       WORK-REF9703 INFO-REF9704))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZTPTRS "ztptrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZTPTRS (UPLO TRANS DIAG N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9708 ':INT32)
                              (NRHS-REF9709 ':INT32)
                              (LDB-REF9712 ':INT32)
                              (INFO-REF9713 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9708 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9709 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9712 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9713 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9710 AP)
                                            (B-REF9711 B))
      (%%ZTPTRS UPLO TRANS DIAG N-REF9708 NRHS-REF9709 AP-REF9710
       B-REF9711 LDB-REF9712 INFO-REF9713))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CGBTF2 "cgbtf2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CGBTF2 (M N KL KU AB LDAB IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBTF2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9714 ':INT32) (N-REF9715 ':INT32)
                              (KL-REF9716 ':INT32) (KU-REF9717 ':INT32)
                              (LDAB-REF9719 ':INT32)
                              (INFO-REF9721 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9714 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9715 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF9716 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF9717 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9719 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9721 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9718 AB)
                                            (IPIV-REF9720 IPIV))
      (%%CGBTF2 M-REF9714 N-REF9715 KL-REF9716 KU-REF9717 AB-REF9718
       LDAB-REF9719 IPIV-REF9720 INFO-REF9721))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLA_SYAMV "cla_syamv_")
  ((UPLO :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (ALPHA :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLA_SYAMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLA_SYAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((UPLO-REF9722 ':INT32)
                              (N-REF9723 ':INT32)
                              (ALPHA-REF9724 ':FLOAT)
                              (LDA-REF9726 ':INT32)
                              (INCX-REF9728 ':INT32)
                              (BETA-REF9729 ':FLOAT)
                              (INCY-REF9731 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF UPLO-REF9722 :INT32) UPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9723 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF9724 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9726 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9728 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF9729 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF9731 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9725 A)
                                            (X-REF9727 X)
                                            (Y-REF9730 Y))
      (%%CLA_SYAMV UPLO-REF9722 N-REF9723 ALPHA-REF9724 A-REF9725
       LDA-REF9726 X-REF9727 INCX-REF9728 BETA-REF9729 Y-REF9730
       INCY-REF9731))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLATSQR "dlatsqr_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (MB :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLATSQR (M N MB NB A LDA T LDT WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLATSQR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) MB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9732 ':INT32) (N-REF9733 ':INT32)
                              (MB-REF9734 ':INT32) (NB-REF9735 ':INT32)
                              (LDA-REF9737 ':INT32)
                              (LDT-REF9739 ':INT32)
                              (LWORK-REF9741 ':INT32)
                              (INFO-REF9742 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9732 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9733 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF MB-REF9734 :INT32) MB)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9735 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9737 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9739 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9741 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9742 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9736 A)
                                            (T-REF9738 T)
                                            (WORK-REF9740 WORK))
      (%%DLATSQR M-REF9732 N-REF9733 MB-REF9734 NB-REF9735 A-REF9736
       LDA-REF9737 T-REF9738 LDT-REF9739 WORK-REF9740 LWORK-REF9741
       INFO-REF9742))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ILAENV2STAGE "ilaenv2stage_")
  ((ISPEC :FOREIGN-ADDRESS)
   (NAME (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (OPTS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (N1 :FOREIGN-ADDRESS) (N2 :FOREIGN-ADDRESS) (N3 :FOREIGN-ADDRESS)
   (N4 :FOREIGN-ADDRESS))
  :RETURNING :INT :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ILAENV2STAGE (ISPEC NAME OPTS N1 N2 N3 N4)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ILAENV2STAGE)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ISPEC)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NAME)
   (COMMON-LISP:TYPE COMMON-LISP:STRING OPTS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N4))
  (CFFI:WITH-FOREIGN-OBJECTS ((ISPEC-REF9743 ':INT32)
                              (N1-REF9746 ':INT32) (N2-REF9747 ':INT32)
                              (N3-REF9748 ':INT32)
                              (N4-REF9749 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ISPEC-REF9743 :INT32) ISPEC)
    (COMMON-LISP:SETF (CFFI:MEM-REF N1-REF9746 :INT32) N1)
    (COMMON-LISP:SETF (CFFI:MEM-REF N2-REF9747 :INT32) N2)
    (COMMON-LISP:SETF (CFFI:MEM-REF N3-REF9748 :INT32) N3)
    (COMMON-LISP:SETF (CFFI:MEM-REF N4-REF9749 :INT32) N4)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ILAENV2STAGE ISPEC-REF9743 NAME OPTS N1-REF9746 N2-REF9747
       N3-REF9748 N4-REF9749))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLANGB "slangb_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS)
   (LDAB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLANGB (NORM N KL KU AB LDAB WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLANGB)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9751 ':INT32) (KL-REF9752 ':INT32)
                              (KU-REF9753 ':INT32)
                              (LDAB-REF9755 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9751 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF9752 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF9753 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9755 :INT32) LDAB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9754 AB)
                                            (WORK-REF9756 WORK))
      (%%SLANGB NORM N-REF9751 KL-REF9752 KU-REF9753 AB-REF9754
       LDAB-REF9755 WORK-REF9756))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGECON "dgecon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGECON (NORM N A LDA ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGECON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9758 ':INT32) (LDA-REF9760 ':INT32)
                              (ANORM-REF9761 ':DOUBLE)
                              (RCOND-REF9762 ':DOUBLE)
                              (INFO-REF9765 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9758 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9760 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9761 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9762 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9765 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9759 A)
                                            (WORK-REF9763 WORK)
                                            (IWORK-REF9764 IWORK))
      (%%DGECON NORM N-REF9758 A-REF9759 LDA-REF9760 ANORM-REF9761
       RCOND-REF9762 WORK-REF9763 IWORK-REF9764 INFO-REF9765))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPPSV "sppsv_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPPSV (UPLO N NRHS AP B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPSV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9767 ':INT32)
                              (NRHS-REF9768 ':INT32)
                              (LDB-REF9771 ':INT32)
                              (INFO-REF9772 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9767 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9768 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9771 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9772 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9769 AP)
                                            (B-REF9770 B))
      (%%SPPSV UPLO N-REF9767 NRHS-REF9768 AP-REF9769 B-REF9770
       LDB-REF9771 INFO-REF9772))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYSV_RK "zsysv_rk_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYSV_RK
    (UPLO N NRHS A LDA E IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYSV_RK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9774 ':INT32)
                              (NRHS-REF9775 ':INT32)
                              (LDA-REF9777 ':INT32)
                              (LDB-REF9781 ':INT32)
                              (LWORK-REF9783 ':INT32)
                              (INFO-REF9784 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9774 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9775 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9777 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9781 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9783 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9784 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9776 A)
                                            (E-REF9778 E)
                                            (IPIV-REF9779 IPIV)
                                            (B-REF9780 B)
                                            (WORK-REF9782 WORK))
      (%%ZSYSV_RK UPLO N-REF9774 NRHS-REF9775 A-REF9776 LDA-REF9777
       E-REF9778 IPIV-REF9779 B-REF9780 LDB-REF9781 WORK-REF9782
       LWORK-REF9783 INFO-REF9784))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHESV_ROOK "zhesv_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHESV_ROOK
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHESV_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9786 ':INT32)
                              (NRHS-REF9787 ':INT32)
                              (LDA-REF9789 ':INT32)
                              (LDB-REF9792 ':INT32)
                              (LWORK-REF9794 ':INT32)
                              (INFO-REF9795 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9786 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9787 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9789 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9792 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9794 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9795 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9788 A)
                                            (IPIV-REF9790 IPIV)
                                            (B-REF9791 B)
                                            (WORK-REF9793 WORK))
      (%%ZHESV_ROOK UPLO N-REF9786 NRHS-REF9787 A-REF9788 LDA-REF9789
       IPIV-REF9790 B-REF9791 LDB-REF9792 WORK-REF9793 LWORK-REF9794
       INFO-REF9795))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZSYTRS_AA "zsytrs_aa_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZSYTRS_AA
    (UPLO N NRHS A LDA IPIV B LDB WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYTRS_AA)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9797 ':INT32)
                              (NRHS-REF9798 ':INT32)
                              (LDA-REF9800 ':INT32)
                              (LDB-REF9803 ':INT32)
                              (LWORK-REF9805 ':INT32)
                              (INFO-REF9806 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9797 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9798 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9800 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9803 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9805 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9806 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9799 A)
                                            (IPIV-REF9801 IPIV)
                                            (B-REF9802 B)
                                            (WORK-REF9804 WORK))
      (%%ZSYTRS_AA UPLO N-REF9797 NRHS-REF9798 A-REF9799 LDA-REF9800
       IPIV-REF9801 B-REF9802 LDB-REF9803 WORK-REF9804 LWORK-REF9805
       INFO-REF9806))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPTSV "zptsv_")
  ((N :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (E :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPTSV (N NRHS D E B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPTSV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9807 ':INT32)
                              (NRHS-REF9808 ':INT32)
                              (LDB-REF9812 ':INT32)
                              (INFO-REF9813 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9807 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9808 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9812 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9813 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF9809 D)
                                            (E-REF9810 E)
                                            (B-REF9811 B))
      (%%ZPTSV N-REF9807 NRHS-REF9808 D-REF9809 E-REF9810 B-REF9811
       LDB-REF9812 INFO-REF9813))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLA_SYRCOND "sla_syrcond_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (AF :FOREIGN-ADDRESS)
   (LDAF :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (CMODE :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLA_SYRCOND
    (UPLO N A LDA AF LDAF IPIV CMODE C INFO WORK IWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLA_SYRCOND)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) CMODE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9815 ':INT32) (LDA-REF9817 ':INT32)
                              (LDAF-REF9819 ':INT32)
                              (CMODE-REF9821 ':INT32)
                              (INFO-REF9823 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9815 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9817 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAF-REF9819 :INT32) LDAF)
    (COMMON-LISP:SETF (CFFI:MEM-REF CMODE-REF9821 :INT32) CMODE)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9823 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9816 A)
                                            (AF-REF9818 AF)
                                            (IPIV-REF9820 IPIV)
                                            (C-REF9822 C)
                                            (WORK-REF9824 WORK)
                                            (IWORK-REF9825 IWORK))
      (%%SLA_SYRCOND UPLO N-REF9815 A-REF9816 LDA-REF9817 AF-REF9818
       LDAF-REF9819 IPIV-REF9820 CMODE-REF9821 C-REF9822 INFO-REF9823
       WORK-REF9824 IWORK-REF9825))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CUNCSD2BY1 "cuncsd2by1_")
  ((JOBU1 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBU2 (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV1T (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (P :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (X11 :FOREIGN-ADDRESS) (LDX11 :FOREIGN-ADDRESS)
   (X21 :FOREIGN-ADDRESS) (LDX21 :FOREIGN-ADDRESS)
   (THETA :FOREIGN-ADDRESS) (U1 :FOREIGN-ADDRESS)
   (LDU1 :FOREIGN-ADDRESS) (U2 :FOREIGN-ADDRESS)
   (LDU2 :FOREIGN-ADDRESS) (V1T :FOREIGN-ADDRESS)
   (LDV1T :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (RWORK :FOREIGN-ADDRESS)
   (LRWORK :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CUNCSD2BY1
    (JOBU1 JOBU2 JOBV1T M P Q X11 LDX11 X21 LDX21 THETA U1 LDU1 U2 LDU2
     V1T LDV1T WORK LWORK RWORK LRWORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CUNCSD2BY1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU1)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU2)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) Q)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X11)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX11)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X21)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX21)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) THETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U1)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU1)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    U2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU2)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    V1T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV1T)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9829 ':INT32) (P-REF9830 ':INT32)
                              (Q-REF9831 ':INT32)
                              (LDX11-REF9833 ':INT32)
                              (LDX21-REF9835 ':INT32)
                              (LDU1-REF9838 ':INT32)
                              (LDU2-REF9840 ':INT32)
                              (LDV1T-REF9842 ':INT32)
                              (LWORK-REF9844 ':INT32)
                              (LRWORK-REF9846 ':INT32)
                              (INFO-REF9848 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9829 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9830 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF Q-REF9831 :INT32) Q)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX11-REF9833 :INT32) LDX11)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX21-REF9835 :INT32) LDX21)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU1-REF9838 :INT32) LDU1)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU2-REF9840 :INT32) LDU2)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV1T-REF9842 :INT32) LDV1T)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9844 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF9846 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9848 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X11-REF9832 X11)
                                            (X21-REF9834 X21)
                                            (THETA-REF9836 THETA)
                                            (U1-REF9837 U1)
                                            (U2-REF9839 U2)
                                            (V1T-REF9841 V1T)
                                            (WORK-REF9843 WORK)
                                            (RWORK-REF9845 RWORK)
                                            (IWORK-REF9847 IWORK))
      (%%CUNCSD2BY1 JOBU1 JOBU2 JOBV1T M-REF9829 P-REF9830 Q-REF9831
       X11-REF9832 LDX11-REF9833 X21-REF9834 LDX21-REF9835
       THETA-REF9836 U1-REF9837 LDU1-REF9838 U2-REF9839 LDU2-REF9840
       V1T-REF9841 LDV1T-REF9842 WORK-REF9843 LWORK-REF9844
       RWORK-REF9845 LRWORK-REF9846 IWORK-REF9847 INFO-REF9848))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZPPCON "zppcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZPPCON (UPLO N AP ANORM RCOND WORK RWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZPPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9850 ':INT32)
                              (ANORM-REF9852 ':DOUBLE)
                              (RCOND-REF9853 ':DOUBLE)
                              (INFO-REF9856 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9850 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF9852 :DOUBLE) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF9853 :DOUBLE) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9856 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9851 AP)
                                            (WORK-REF9854 WORK)
                                            (RWORK-REF9855 RWORK))
      (%%ZPPCON UPLO N-REF9850 AP-REF9851 ANORM-REF9852 RCOND-REF9853
       WORK-REF9854 RWORK-REF9855 INFO-REF9856))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLANSP "clansp_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:FLOAT COMMON-LISP:SINGLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLANSP (NORM UPLO N AP WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLANSP)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9859 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9859 :INT32) N)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF9860 AP)
                                            (WORK-REF9861 WORK))
      (%%CLANSP NORM UPLO N-REF9859 AP-REF9860 WORK-REF9861))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLATRZ "clatrz_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLATRZ (M N L A LDA TAU WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLATRZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9862 ':INT32) (N-REF9863 ':INT32)
                              (L-REF9864 ':INT32)
                              (LDA-REF9866 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9862 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9863 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9864 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9866 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9865 A)
                                            (TAU-REF9867 TAU)
                                            (WORK-REF9868 WORK))
      (%%CLATRZ M-REF9862 N-REF9863 L-REF9864 A-REF9865 LDA-REF9866
       TAU-REF9867 WORK-REF9868))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAQR5 "slaqr5_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (KACC22 :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NSHFTS :FOREIGN-ADDRESS) (SR :FOREIGN-ADDRESS)
   (SI :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS) (NV :FOREIGN-ADDRESS)
   (WV :FOREIGN-ADDRESS) (LDWV :FOREIGN-ADDRESS) (NH :FOREIGN-ADDRESS)
   (WH :FOREIGN-ADDRESS) (LDWH :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAQR5
    (WANTT WANTZ KACC22 N KTOP KBOT NSHFTS SR SI H LDH ILOZ IHIZ Z LDZ
     V LDV U LDU NV WV LDWV NH WH LDWH)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAQR5)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KACC22)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NSHFTS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SI)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWH))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF9869 ':INT32)
                              (WANTZ-REF9870 ':INT32)
                              (KACC22-REF9871 ':INT32)
                              (N-REF9872 ':INT32)
                              (KTOP-REF9873 ':INT32)
                              (KBOT-REF9874 ':INT32)
                              (NSHFTS-REF9875 ':INT32)
                              (LDH-REF9879 ':INT32)
                              (ILOZ-REF9880 ':INT32)
                              (IHIZ-REF9881 ':INT32)
                              (LDZ-REF9883 ':INT32)
                              (LDV-REF9885 ':INT32)
                              (LDU-REF9887 ':INT32)
                              (NV-REF9888 ':INT32)
                              (LDWV-REF9890 ':INT32)
                              (NH-REF9891 ':INT32)
                              (LDWH-REF9893 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF9869 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9870 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF KACC22-REF9871 :INT32) KACC22)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9872 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF9873 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF9874 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NSHFTS-REF9875 :INT32) NSHFTS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF9879 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF9880 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF9881 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9883 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF9885 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF9887 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF9888 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF9890 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF9891 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWH-REF9893 :INT32) LDWH)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SR-REF9876 SR)
                                            (SI-REF9877 SI)
                                            (H-REF9878 H)
                                            (Z-REF9882 Z)
                                            (V-REF9884 V)
                                            (U-REF9886 U)
                                            (WV-REF9889 WV)
                                            (WH-REF9892 WH))
      (%%SLAQR5 WANTT-REF9869 WANTZ-REF9870 KACC22-REF9871 N-REF9872
       KTOP-REF9873 KBOT-REF9874 NSHFTS-REF9875 SR-REF9876 SI-REF9877
       H-REF9878 LDH-REF9879 ILOZ-REF9880 IHIZ-REF9881 Z-REF9882
       LDZ-REF9883 V-REF9884 LDV-REF9885 U-REF9886 LDU-REF9887
       NV-REF9888 WV-REF9889 LDWV-REF9890 NH-REF9891 WH-REF9892
       LDWH-REF9893))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DRSCL "drscl_")
  ((N :FOREIGN-ADDRESS) (SA :FOREIGN-ADDRESS) (SX :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DRSCL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DRSCL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT SA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) SX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9894 ':INT32) (SA-REF9895 ':DOUBLE)
                              (INCX-REF9897 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9894 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF9895 :DOUBLE) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF9897 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF9896 SX))
      (%%DRSCL N-REF9894 SA-REF9895 SX-REF9896 INCX-REF9897))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLAQR3 "zlaqr3_")
  ((WANTT :FOREIGN-ADDRESS) (WANTZ :FOREIGN-ADDRESS)
   (N :FOREIGN-ADDRESS) (KTOP :FOREIGN-ADDRESS) (KBOT :FOREIGN-ADDRESS)
   (NW :FOREIGN-ADDRESS) (H :FOREIGN-ADDRESS) (LDH :FOREIGN-ADDRESS)
   (ILOZ :FOREIGN-ADDRESS) (IHIZ :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS)
   (LDZ :FOREIGN-ADDRESS) (NS :FOREIGN-ADDRESS) (ND :FOREIGN-ADDRESS)
   (SH :FOREIGN-ADDRESS) (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS)
   (NH :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (NV :FOREIGN-ADDRESS) (WV :FOREIGN-ADDRESS) (LDWV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLAQR3
    (WANTT WANTZ N KTOP KBOT NW H LDH ILOZ IHIZ Z LDZ NS ND SH V LDV NH
     T LDT NV WV LDWV WORK LWORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLAQR3)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) WANTZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KTOP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KBOT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NW)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    H)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDH)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ILOZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IHIZ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    SH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NH)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDWV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((WANTT-REF9898 ':INT32)
                              (WANTZ-REF9899 ':INT32)
                              (N-REF9900 ':INT32)
                              (KTOP-REF9901 ':INT32)
                              (KBOT-REF9902 ':INT32)
                              (NW-REF9903 ':INT32)
                              (LDH-REF9905 ':INT32)
                              (ILOZ-REF9906 ':INT32)
                              (IHIZ-REF9907 ':INT32)
                              (LDZ-REF9909 ':INT32)
                              (NS-REF9910 ':INT32) (ND-REF9911 ':INT32)
                              (LDV-REF9914 ':INT32)
                              (NH-REF9915 ':INT32)
                              (LDT-REF9917 ':INT32)
                              (NV-REF9918 ':INT32)
                              (LDWV-REF9920 ':INT32)
                              (LWORK-REF9922 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTT-REF9898 :INT32) WANTT)
    (COMMON-LISP:SETF (CFFI:MEM-REF WANTZ-REF9899 :INT32) WANTZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9900 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KTOP-REF9901 :INT32) KTOP)
    (COMMON-LISP:SETF (CFFI:MEM-REF KBOT-REF9902 :INT32) KBOT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NW-REF9903 :INT32) NW)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDH-REF9905 :INT32) LDH)
    (COMMON-LISP:SETF (CFFI:MEM-REF ILOZ-REF9906 :INT32) ILOZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF IHIZ-REF9907 :INT32) IHIZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDZ-REF9909 :INT32) LDZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NS-REF9910 :INT32) NS)
    (COMMON-LISP:SETF (CFFI:MEM-REF ND-REF9911 :INT32) ND)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF9914 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF NH-REF9915 :INT32) NH)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF9917 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF NV-REF9918 :INT32) NV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDWV-REF9920 :INT32) LDWV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9922 :INT32) LWORK)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((H-REF9904 H)
                                            (Z-REF9908 Z)
                                            (SH-REF9912 SH)
                                            (V-REF9913 V)
                                            (T-REF9916 T)
                                            (WV-REF9919 WV)
                                            (WORK-REF9921 WORK))
      (%%ZLAQR3 WANTT-REF9898 WANTZ-REF9899 N-REF9900 KTOP-REF9901
       KBOT-REF9902 NW-REF9903 H-REF9904 LDH-REF9905 ILOZ-REF9906
       IHIZ-REF9907 Z-REF9908 LDZ-REF9909 NS-REF9910 ND-REF9911
       SH-REF9912 V-REF9913 LDV-REF9914 NH-REF9915 T-REF9916
       LDT-REF9917 NV-REF9918 WV-REF9919 LDWV-REF9920 WORK-REF9921
       LWORK-REF9922))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORM2L "sorm2l_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORM2L)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9925 ':INT32) (N-REF9926 ':INT32)
                              (K-REF9927 ':INT32) (LDA-REF9929 ':INT32)
                              (LDC-REF9932 ':INT32)
                              (INFO-REF9934 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9925 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9926 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9927 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9929 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF9932 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9934 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9928 A)
                                            (TAU-REF9930 TAU)
                                            (C-REF9931 C)
                                            (WORK-REF9933 WORK))
      (%%SORM2L SIDE TRANS M-REF9925 N-REF9926 K-REF9927 A-REF9928
       LDA-REF9929 TAU-REF9930 C-REF9931 LDC-REF9932 WORK-REF9933
       INFO-REF9934))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRS_ROOK "chetrs_rook_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRS_ROOK (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRS_ROOK)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9936 ':INT32)
                              (NRHS-REF9937 ':INT32)
                              (LDA-REF9939 ':INT32)
                              (LDB-REF9942 ':INT32)
                              (INFO-REF9943 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9936 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9937 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9939 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9942 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9943 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9938 A)
                                            (IPIV-REF9940 IPIV)
                                            (B-REF9941 B))
      (%%CHETRS_ROOK UPLO N-REF9936 NRHS-REF9937 A-REF9938 LDA-REF9939
       IPIV-REF9940 B-REF9941 LDB-REF9942 INFO-REF9943))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAHEF "clahef_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NB :FOREIGN-ADDRESS) (KB :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (LDW :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAHEF (UPLO N NB KB A LDA IPIV W LDW INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAHEF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    W)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDW)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9945 ':INT32) (NB-REF9946 ':INT32)
                              (KB-REF9947 ':INT32)
                              (LDA-REF9949 ':INT32)
                              (LDW-REF9952 ':INT32)
                              (INFO-REF9953 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9945 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF9946 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF KB-REF9947 :INT32) KB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9949 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDW-REF9952 :INT32) LDW)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9953 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9948 A)
                                            (IPIV-REF9950 IPIV)
                                            (W-REF9951 W))
      (%%CLAHEF UPLO N-REF9945 NB-REF9946 KB-REF9947 A-REF9948
       LDA-REF9949 IPIV-REF9950 W-REF9951 LDW-REF9952 INFO-REF9953))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DGBEQU "dgbequ_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (KL :FOREIGN-ADDRESS)
   (KU :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (R :FOREIGN-ADDRESS) (C :FOREIGN-ADDRESS) (ROWCND :FOREIGN-ADDRESS)
   (COLCND :FOREIGN-ADDRESS) (AMAX :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DGBEQU
    (M N KL KU AB LDAB R C ROWCND COLCND AMAX INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBEQU)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) R)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ROWCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT COLCND)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT AMAX)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9954 ':INT32) (N-REF9955 ':INT32)
                              (KL-REF9956 ':INT32) (KU-REF9957 ':INT32)
                              (LDAB-REF9959 ':INT32)
                              (ROWCND-REF9962 ':DOUBLE)
                              (COLCND-REF9963 ':DOUBLE)
                              (AMAX-REF9964 ':DOUBLE)
                              (INFO-REF9965 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9954 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9955 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF9956 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF9957 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF9959 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF ROWCND-REF9962 :DOUBLE) ROWCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF COLCND-REF9963 :DOUBLE) COLCND)
    (COMMON-LISP:SETF (CFFI:MEM-REF AMAX-REF9964 :DOUBLE) AMAX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9965 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF9958 AB)
                                            (R-REF9960 R)
                                            (C-REF9961 C))
      (%%DGBEQU M-REF9954 N-REF9955 KL-REF9956 KU-REF9957 AB-REF9958
       LDAB-REF9959 R-REF9960 C-REF9961 ROWCND-REF9962 COLCND-REF9963
       AMAX-REF9964 INFO-REF9965))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGETRF "sgetrf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGETRF (M N A LDA IPIV INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGETRF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9966 ':INT32) (N-REF9967 ':INT32)
                              (LDA-REF9969 ':INT32)
                              (INFO-REF9971 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9966 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9967 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9969 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9971 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9968 A)
                                            (IPIV-REF9970 IPIV))
      (%%SGETRF M-REF9966 N-REF9967 A-REF9968 LDA-REF9969 IPIV-REF9970
       INFO-REF9971))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGGSVP3 "sggsvp3_")
  ((JOBU (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBV (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (JOBQ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (M :FOREIGN-ADDRESS)
   (P :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (TOLA :FOREIGN-ADDRESS) (TOLB :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (L :FOREIGN-ADDRESS) (U :FOREIGN-ADDRESS) (LDU :FOREIGN-ADDRESS)
   (V :FOREIGN-ADDRESS) (LDV :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (IWORK :FOREIGN-ADDRESS)
   (TAU :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGGSVP3
    (JOBU JOBV JOBQ M P N A LDA B LDB TOLA TOLB K L U LDU V LDV Q LDQ
     IWORK TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGGSVP3)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBU)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBV)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLA)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT TOLB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) U)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) V)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF9975 ':INT32) (P-REF9976 ':INT32)
                              (N-REF9977 ':INT32) (LDA-REF9979 ':INT32)
                              (LDB-REF9981 ':INT32)
                              (TOLA-REF9982 ':FLOAT)
                              (TOLB-REF9983 ':FLOAT)
                              (K-REF9984 ':INT32) (L-REF9985 ':INT32)
                              (LDU-REF9987 ':INT32)
                              (LDV-REF9989 ':INT32)
                              (LDQ-REF9991 ':INT32)
                              (LWORK-REF9995 ':INT32)
                              (INFO-REF9996 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF9975 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF P-REF9976 :INT32) P)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9977 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF9979 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF9981 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLA-REF9982 :FLOAT) TOLA)
    (COMMON-LISP:SETF (CFFI:MEM-REF TOLB-REF9983 :FLOAT) TOLB)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF9984 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF9985 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDU-REF9987 :INT32) LDU)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDV-REF9989 :INT32) LDV)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF9991 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF9995 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF9996 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF9978 A)
                                            (B-REF9980 B)
                                            (U-REF9986 U)
                                            (V-REF9988 V)
                                            (Q-REF9990 Q)
                                            (IWORK-REF9992 IWORK)
                                            (TAU-REF9993 TAU)
                                            (WORK-REF9994 WORK))
      (%%SGGSVP3 JOBU JOBV JOBQ M-REF9975 P-REF9976 N-REF9977 A-REF9978
       LDA-REF9979 B-REF9980 LDB-REF9981 TOLA-REF9982 TOLB-REF9983
       K-REF9984 L-REF9985 U-REF9986 LDU-REF9987 V-REF9988 LDV-REF9989
       Q-REF9990 LDQ-REF9991 IWORK-REF9992 TAU-REF9993 WORK-REF9994
       LWORK-REF9995 INFO-REF9996))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SSPRFS "ssprfs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (AP :FOREIGN-ADDRESS) (AFP :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS) (FERR :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SSPRFS
    (UPLO N NRHS AP AFP IPIV B LDB X LDX FERR BERR WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPRFS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AFP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) FERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) BERR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF9998 ':INT32)
                              (NRHS-REF9999 ':INT32)
                              (LDB-REF10004 ':INT32)
                              (LDX-REF10006 ':INT32)
                              (INFO-REF10011 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF9998 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF9999 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10004 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10006 :INT32) LDX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10011 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10000 AP)
                                            (AFP-REF10001 AFP)
                                            (IPIV-REF10002 IPIV)
                                            (B-REF10003 B)
                                            (X-REF10005 X)
                                            (FERR-REF10007 FERR)
                                            (BERR-REF10008 BERR)
                                            (WORK-REF10009 WORK)
                                            (IWORK-REF10010 IWORK))
      (%%SSPRFS UPLO N-REF9998 NRHS-REF9999 AP-REF10000 AFP-REF10001
       IPIV-REF10002 B-REF10003 LDB-REF10004 X-REF10005 LDX-REF10006
       FERR-REF10007 BERR-REF10008 WORK-REF10009 IWORK-REF10010
       INFO-REF10011))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPTTS2 "cptts2_")
  ((IUPLO :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS) (E :FOREIGN-ADDRESS)
   (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPTTS2 (IUPLO N NRHS D E B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPTTS2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) IUPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    E)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((IUPLO-REF10012 ':INT32)
                              (N-REF10013 ':INT32)
                              (NRHS-REF10014 ':INT32)
                              (LDB-REF10018 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF IUPLO-REF10012 :INT32) IUPLO)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10013 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10014 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10018 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10015 D)
                                            (E-REF10016 E)
                                            (B-REF10017 B))
      (%%CPTTS2 IUPLO-REF10012 N-REF10013 NRHS-REF10014 D-REF10015
       E-REF10016 B-REF10017 LDB-REF10018))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SLAHR2 "slahr2_")
  ((N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS) (NB :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (LDY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SLAHR2 (N K NB A LDA TAU T LDT Y LDY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SLAHR2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10019 ':INT32) (K-REF10020 ':INT32)
                              (NB-REF10021 ':INT32)
                              (LDA-REF10023 ':INT32)
                              (LDT-REF10026 ':INT32)
                              (LDY-REF10028 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10019 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF10020 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF NB-REF10021 :INT32) NB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10023 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF10026 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDY-REF10028 :INT32) LDY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10022 A)
                                            (TAU-REF10024 TAU)
                                            (T-REF10025 T)
                                            (Y-REF10027 Y))
      (%%SLAHR2 N-REF10019 K-REF10020 NB-REF10021 A-REF10022
       LDA-REF10023 TAU-REF10024 T-REF10025 LDT-REF10026 Y-REF10027
       LDY-REF10028))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZHEEVD "zheevd_")
  ((JOBZ (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (W :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (RWORK :FOREIGN-ADDRESS) (LRWORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (LIWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZHEEVD
    (JOBZ UPLO N A LDA W WORK LWORK RWORK LRWORK IWORK LIWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEEVD)
   (COMMON-LISP:TYPE COMMON-LISP:STRING JOBZ)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) W)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LRWORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LIWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10031 ':INT32)
                              (LDA-REF10033 ':INT32)
                              (LWORK-REF10036 ':INT32)
                              (LRWORK-REF10038 ':INT32)
                              (LIWORK-REF10040 ':INT32)
                              (INFO-REF10041 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10031 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10033 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10036 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LRWORK-REF10038 :INT32) LRWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF LIWORK-REF10040 :INT32) LIWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10041 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10032 A)
                                            (W-REF10034 W)
                                            (WORK-REF10035 WORK)
                                            (RWORK-REF10037 RWORK)
                                            (IWORK-REF10039 IWORK))
      (%%ZHEEVD JOBZ UPLO N-REF10031 A-REF10032 LDA-REF10033 W-REF10034
       WORK-REF10035 LWORK-REF10036 RWORK-REF10037 LRWORK-REF10038
       IWORK-REF10039 LIWORK-REF10040 INFO-REF10041))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SGESC2 "sgesc2_")
  ((N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (RHS :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (JPIV :FOREIGN-ADDRESS) (SCALE :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SGESC2 (N A LDA RHS IPIV JPIV SCALE)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGESC2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) RHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    JPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SCALE))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10042 ':INT32)
                              (LDA-REF10044 ':INT32)
                              (SCALE-REF10048 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10042 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10044 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SCALE-REF10048 :FLOAT) SCALE)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10043 A)
                                            (RHS-REF10045 RHS)
                                            (IPIV-REF10046 IPIV)
                                            (JPIV-REF10047 JPIV))
      (%%SGESC2 N-REF10042 A-REF10043 LDA-REF10044 RHS-REF10045
       IPIV-REF10046 JPIV-REF10047 SCALE-REF10048))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DOPGTR "dopgtr_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS) (Q :FOREIGN-ADDRESS)
   (LDQ :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DOPGTR (UPLO N AP TAU Q LDQ WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DOPGTR)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Q)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10050 ':INT32)
                              (LDQ-REF10054 ':INT32)
                              (INFO-REF10056 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10050 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDQ-REF10054 :INT32) LDQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10056 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10051 AP)
                                            (TAU-REF10052 TAU)
                                            (Q-REF10053 Q)
                                            (WORK-REF10055 WORK))
      (%%DOPGTR UPLO N-REF10050 AP-REF10051 TAU-REF10052 Q-REF10053
       LDQ-REF10054 WORK-REF10055 INFO-REF10056))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGERQF "zgerqf_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGERQF (M N A LDA TAU WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERQF)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF10057 ':INT32) (N-REF10058 ':INT32)
                              (LDA-REF10060 ':INT32)
                              (LWORK-REF10063 ':INT32)
                              (INFO-REF10064 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10057 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10058 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10060 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10063 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10064 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10059 A)
                                            (TAU-REF10061 TAU)
                                            (WORK-REF10062 WORK))
      (%%ZGERQF M-REF10057 N-REF10058 A-REF10059 LDA-REF10060
       TAU-REF10061 WORK-REF10062 LWORK-REF10063 INFO-REF10064))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSPCON "cspcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (ANORM :FOREIGN-ADDRESS) (RCOND :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSPCON (UPLO N AP IPIV ANORM RCOND WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10066 ':INT32)
                              (ANORM-REF10069 ':FLOAT)
                              (RCOND-REF10070 ':FLOAT)
                              (INFO-REF10072 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10066 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10069 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10070 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10072 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10067 AP)
                                            (IPIV-REF10068 IPIV)
                                            (WORK-REF10071 WORK))
      (%%CSPCON UPLO N-REF10066 AP-REF10067 IPIV-REF10068
       ANORM-REF10069 RCOND-REF10070 WORK-REF10071 INFO-REF10072))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLARFG "zlarfg_")
  ((N :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLARFG (N ALPHA X INCX TAU)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLARFG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
    TAU))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10073 ':INT32)
                              (ALPHA-REF10074
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF10076 ':INT32)
                              (TAU-REF10077
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10073 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF10074
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF10076 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL
                               MAGICL.CFFI-TYPES::IMAG)
                              TAU-REF10077
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART TAU)
                        MAGICL.CFFI-TYPES::IMAG
                        (COMMON-LISP:IMAGPART TAU)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF10075 X))
      (%%ZLARFG N-REF10073 ALPHA-REF10074 X-REF10075 INCX-REF10076
       TAU-REF10077))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGEQR2P "zgeqr2p_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGEQR2P (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEQR2P)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF10078 ':INT32) (N-REF10079 ':INT32)
                              (LDA-REF10081 ':INT32)
                              (INFO-REF10084 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10078 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10079 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10081 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10084 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10080 A)
                                            (TAU-REF10082 TAU)
                                            (WORK-REF10083 WORK))
      (%%ZGEQR2P M-REF10078 N-REF10079 A-REF10080 LDA-REF10081
       TAU-REF10082 WORK-REF10083 INFO-REF10084))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLA_LIN_BERR "dla_lin_berr_")
  ((N :FOREIGN-ADDRESS) (NZ :FOREIGN-ADDRESS) (NRHS :FOREIGN-ADDRESS)
   (RES :FOREIGN-ADDRESS) (AYB :FOREIGN-ADDRESS)
   (BERR :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLA_LIN_BERR (N NZ NRHS RES AYB BERR)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLA_LIN_BERR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NZ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) RES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AYB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) BERR))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10085 ':INT32)
                              (NZ-REF10086 ':INT32)
                              (NRHS-REF10087 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10085 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NZ-REF10086 :INT32) NZ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10087 :INT32) NRHS)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((RES-REF10088 RES)
                                            (AYB-REF10089 AYB)
                                            (BERR-REF10090 BERR))
      (%%DLA_LIN_BERR N-REF10085 NZ-REF10086 NRHS-REF10087 RES-REF10088
       AYB-REF10089 BERR-REF10090))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SORMQL "sormql_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (LWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SORMQL
    (SIDE TRANS M N K A LDA TAU C LDC WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SORMQL)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF10093 ':INT32) (N-REF10094 ':INT32)
                              (K-REF10095 ':INT32)
                              (LDA-REF10097 ':INT32)
                              (LDC-REF10100 ':INT32)
                              (LWORK-REF10102 ':INT32)
                              (INFO-REF10103 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10093 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10094 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF10095 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10097 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF10100 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10102 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10103 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10096 A)
                                            (TAU-REF10098 TAU)
                                            (C-REF10099 C)
                                            (WORK-REF10101 WORK))
      (%%SORMQL SIDE TRANS M-REF10093 N-REF10094 K-REF10095 A-REF10096
       LDA-REF10097 TAU-REF10098 C-REF10099 LDC-REF10100 WORK-REF10101
       LWORK-REF10102 INFO-REF10103))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CSYTRS "csytrs_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (NRHS :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS)
   (IPIV :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS) (LDB :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CSYTRS (UPLO N NRHS A LDA IPIV B LDB INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYTRS)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NRHS)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10105 ':INT32)
                              (NRHS-REF10106 ':INT32)
                              (LDA-REF10108 ':INT32)
                              (LDB-REF10111 ':INT32)
                              (INFO-REF10112 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10105 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF NRHS-REF10106 :INT32) NRHS)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10108 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10111 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10112 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10107 A)
                                            (IPIV-REF10109 IPIV)
                                            (B-REF10110 B))
      (%%CSYTRS UPLO N-REF10105 NRHS-REF10106 A-REF10107 LDA-REF10108
       IPIV-REF10109 B-REF10110 LDB-REF10111 INFO-REF10112))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DLASD6 "dlasd6_")
  ((ICOMPQ :FOREIGN-ADDRESS) (NL :FOREIGN-ADDRESS)
   (NR :FOREIGN-ADDRESS) (SQRE :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (VF :FOREIGN-ADDRESS) (VL :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (BETA :FOREIGN-ADDRESS) (IDXQ :FOREIGN-ADDRESS)
   (PERM :FOREIGN-ADDRESS) (GIVPTR :FOREIGN-ADDRESS)
   (GIVCOL :FOREIGN-ADDRESS) (LDGCOL :FOREIGN-ADDRESS)
   (GIVNUM :FOREIGN-ADDRESS) (LDGNUM :FOREIGN-ADDRESS)
   (POLES :FOREIGN-ADDRESS) (DIFL :FOREIGN-ADDRESS)
   (DIFR :FOREIGN-ADDRESS) (Z :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (S :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DLASD6
    (ICOMPQ NL NR SQRE D VF VL ALPHA BETA IDXQ PERM GIVPTR GIVCOL
     LDGCOL GIVNUM LDGNUM POLES DIFL DIFR Z K C S WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DLASD6)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) ICOMPQ)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) NR)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) SQRE)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VF)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) VL)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IDXQ)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    PERM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) GIVPTR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    GIVCOL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGCOL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) GIVNUM)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDGNUM)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) POLES)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFL)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DIFR)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Z)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((ICOMPQ-REF10113 ':INT32)
                              (NL-REF10114 ':INT32)
                              (NR-REF10115 ':INT32)
                              (SQRE-REF10116 ':INT32)
                              (ALPHA-REF10120 ':DOUBLE)
                              (BETA-REF10121 ':DOUBLE)
                              (GIVPTR-REF10124 ':INT32)
                              (LDGCOL-REF10126 ':INT32)
                              (LDGNUM-REF10128 ':INT32)
                              (K-REF10133 ':INT32)
                              (C-REF10134 ':DOUBLE)
                              (S-REF10135 ':DOUBLE)
                              (INFO-REF10138 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF ICOMPQ-REF10113 :INT32) ICOMPQ)
    (COMMON-LISP:SETF (CFFI:MEM-REF NL-REF10114 :INT32) NL)
    (COMMON-LISP:SETF (CFFI:MEM-REF NR-REF10115 :INT32) NR)
    (COMMON-LISP:SETF (CFFI:MEM-REF SQRE-REF10116 :INT32) SQRE)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF10120 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF10121 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF GIVPTR-REF10124 :INT32) GIVPTR)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGCOL-REF10126 :INT32) LDGCOL)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDGNUM-REF10128 :INT32) LDGNUM)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF10133 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF10134 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF10135 :DOUBLE) S)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10138 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10117 D)
                                            (VF-REF10118 VF)
                                            (VL-REF10119 VL)
                                            (IDXQ-REF10122 IDXQ)
                                            (PERM-REF10123 PERM)
                                            (GIVCOL-REF10125 GIVCOL)
                                            (GIVNUM-REF10127 GIVNUM)
                                            (POLES-REF10129 POLES)
                                            (DIFL-REF10130 DIFL)
                                            (DIFR-REF10131 DIFR)
                                            (Z-REF10132 Z)
                                            (WORK-REF10136 WORK)
                                            (IWORK-REF10137 IWORK))
      (%%DLASD6 ICOMPQ-REF10113 NL-REF10114 NR-REF10115 SQRE-REF10116
       D-REF10117 VF-REF10118 VL-REF10119 ALPHA-REF10120 BETA-REF10121
       IDXQ-REF10122 PERM-REF10123 GIVPTR-REF10124 GIVCOL-REF10125
       LDGCOL-REF10126 GIVNUM-REF10127 LDGNUM-REF10128 POLES-REF10129
       DIFL-REF10130 DIFR-REF10131 Z-REF10132 K-REF10133 C-REF10134
       S-REF10135 WORK-REF10136 IWORK-REF10137 INFO-REF10138))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLASCL2 "clascl2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (D :FOREIGN-ADDRESS)
   (X :FOREIGN-ADDRESS) (LDX :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLASCL2 (M N D X LDX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLASCL2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) D)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDX))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF10139 ':INT32) (N-REF10140 ':INT32)
                              (LDX-REF10143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10139 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10140 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDX-REF10143 :INT32) LDX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((D-REF10141 D)
                                            (X-REF10142 X))
      (%%CLASCL2 M-REF10139 N-REF10140 D-REF10141 X-REF10142
       LDX-REF10143))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZGELQ2 "zgelq2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (A :FOREIGN-ADDRESS)
   (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZGELQ2 (M N A LDA TAU WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGELQ2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF10144 ':INT32) (N-REF10145 ':INT32)
                              (LDA-REF10147 ':INT32)
                              (INFO-REF10150 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10144 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10145 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10147 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10150 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10146 A)
                                            (TAU-REF10148 TAU)
                                            (WORK-REF10149 WORK))
      (%%ZGELQ2 M-REF10144 N-REF10145 A-REF10146 LDA-REF10147
       TAU-REF10148 WORK-REF10149 INFO-REF10150))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLANHE "zlanhe_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS))
  :RETURNING (:DOUBLE COMMON-LISP:DOUBLE-FLOAT) :RELEASE-HEAP :NEVER
  :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLANHE (NORM UPLO N A LDA WORK)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLANHE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10153 ':INT32)
                              (LDA-REF10155 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10153 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10155 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10154 A)
                                            (WORK-REF10156 WORK))
      (%%ZLANHE NORM UPLO N-REF10153 A-REF10154 LDA-REF10155
       WORK-REF10156))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STPLQT2 "stplqt2_")
  ((M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (L :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (B :FOREIGN-ADDRESS)
   (LDB :FOREIGN-ADDRESS) (T :FOREIGN-ADDRESS) (LDT :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STPLQT2 (M N L A LDA B LDB T LDT INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPLQT2)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) L)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) T)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDT)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF10157 ':INT32) (N-REF10158 ':INT32)
                              (L-REF10159 ':INT32)
                              (LDA-REF10161 ':INT32)
                              (LDB-REF10163 ':INT32)
                              (LDT-REF10165 ':INT32)
                              (INFO-REF10166 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10157 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10158 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF L-REF10159 :INT32) L)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10161 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF10163 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDT-REF10165 :INT32) LDT)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10166 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10160 A)
                                            (B-REF10162 B)
                                            (T-REF10164 T))
      (%%STPLQT2 M-REF10157 N-REF10158 L-REF10159 A-REF10160
       LDA-REF10161 B-REF10162 LDB-REF10163 T-REF10164 LDT-REF10165
       INFO-REF10166))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%DSYTRF "dsytrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (LWORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %DSYTRF (UPLO N A LDA IPIV WORK LWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10168 ':INT32)
                              (LDA-REF10170 ':INT32)
                              (LWORK-REF10173 ':INT32)
                              (INFO-REF10174 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10168 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10170 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LWORK-REF10173 :INT32) LWORK)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10174 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10169 A)
                                            (IPIV-REF10171 IPIV)
                                            (WORK-REF10172 WORK))
      (%%DSYTRF UPLO N-REF10168 A-REF10169 LDA-REF10170 IPIV-REF10171
       WORK-REF10172 LWORK-REF10173 INFO-REF10174))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CLAPLL "clapll_")
  ((N :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS) (INCX :FOREIGN-ADDRESS)
   (Y :FOREIGN-ADDRESS) (INCY :FOREIGN-ADDRESS)
   (SSMIN :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CLAPLL (N X INCX Y INCY SSMIN)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CLAPLL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SSMIN))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10175 ':INT32)
                              (INCX-REF10177 ':INT32)
                              (INCY-REF10179 ':INT32)
                              (SSMIN-REF10180 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10175 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF10177 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF10179 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF SSMIN-REF10180 :FLOAT) SSMIN)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF10176 X)
                                            (Y-REF10178 Y))
      (%%CLAPLL N-REF10175 X-REF10176 INCX-REF10177 Y-REF10178
       INCY-REF10179 SSMIN-REF10180))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%STBCON "stbcon_")
  ((NORM (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (DIAG (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (KD :FOREIGN-ADDRESS) (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %STBCON
    (NORM UPLO DIAG N KD AB LDAB RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING NORM)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KD)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10184 ':INT32)
                              (KD-REF10185 ':INT32)
                              (LDAB-REF10187 ':INT32)
                              (RCOND-REF10188 ':FLOAT)
                              (INFO-REF10191 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10184 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KD-REF10185 :INT32) KD)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10187 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10188 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10191 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10186 AB)
                                            (WORK-REF10189 WORK)
                                            (IWORK-REF10190 IWORK))
      (%%STBCON NORM UPLO DIAG N-REF10184 KD-REF10185 AB-REF10186
       LDAB-REF10187 RCOND-REF10188 WORK-REF10189 IWORK-REF10190
       INFO-REF10191))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CHETRI "chetri_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (IPIV :FOREIGN-ADDRESS)
   (WORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CHETRI (UPLO N A LDA IPIV WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHETRI)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IPIV)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10193 ':INT32)
                              (LDA-REF10195 ':INT32)
                              (INFO-REF10198 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10193 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10195 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10198 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10194 A)
                                            (IPIV-REF10196 IPIV)
                                            (WORK-REF10197 WORK))
      (%%CHETRI UPLO N-REF10193 A-REF10194 LDA-REF10195 IPIV-REF10196
       WORK-REF10197 INFO-REF10198))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZLA_GBAMV "zla_gbamv_")
  ((TRANS :FOREIGN-ADDRESS) (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS)
   (KL :FOREIGN-ADDRESS) (KU :FOREIGN-ADDRESS) (ALPHA :FOREIGN-ADDRESS)
   (AB :FOREIGN-ADDRESS) (LDAB :FOREIGN-ADDRESS) (X :FOREIGN-ADDRESS)
   (INCX :FOREIGN-ADDRESS) (BETA :FOREIGN-ADDRESS) (Y :FOREIGN-ADDRESS)
   (INCY :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZLA_GBAMV
    (TRANS M N KL KU ALPHA AB LDAB X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZLA_GBAMV)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    AB)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDAB)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    X)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
   (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((TRANS-REF10199 ':INT32)
                              (M-REF10200 ':INT32) (N-REF10201 ':INT32)
                              (KL-REF10202 ':INT32)
                              (KU-REF10203 ':INT32)
                              (ALPHA-REF10204 ':DOUBLE)
                              (LDAB-REF10206 ':INT32)
                              (INCX-REF10208 ':INT32)
                              (BETA-REF10209 ':DOUBLE)
                              (INCY-REF10211 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF TRANS-REF10199 :INT32) TRANS)
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10200 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10201 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF10202 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF10203 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF10204 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDAB-REF10206 :INT32) LDAB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF10208 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF10209 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF10211 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AB-REF10205 AB)
                                            (X-REF10207 X)
                                            (Y-REF10210 Y))
      (%%ZLA_GBAMV TRANS-REF10199 M-REF10200 N-REF10201 KL-REF10202
       KU-REF10203 ALPHA-REF10204 AB-REF10205 LDAB-REF10206 X-REF10207
       INCX-REF10208 BETA-REF10209 Y-REF10210 INCY-REF10211))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%ZUNM2L "zunm2l_")
  ((SIDE (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (TRANS (COMMON-LISP:* :CHAR) COMMON-LISP:STRING)
   (M :FOREIGN-ADDRESS) (N :FOREIGN-ADDRESS) (K :FOREIGN-ADDRESS)
   (A :FOREIGN-ADDRESS) (LDA :FOREIGN-ADDRESS) (TAU :FOREIGN-ADDRESS)
   (C :FOREIGN-ADDRESS) (LDC :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %ZUNM2L (SIDE TRANS M N K A LDA TAU C LDC WORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZUNM2L)
   (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
   (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    A)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    TAU)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    C)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) (COMMON-LISP:*))
    WORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF10214 ':INT32) (N-REF10215 ':INT32)
                              (K-REF10216 ':INT32)
                              (LDA-REF10218 ':INT32)
                              (LDC-REF10221 ':INT32)
                              (INFO-REF10223 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF10214 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10215 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF10216 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF10218 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF10221 :INT32) LDC)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10223 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF10217 A)
                                            (TAU-REF10219 TAU)
                                            (C-REF10220 C)
                                            (WORK-REF10222 WORK))
      (%%ZUNM2L SIDE TRANS M-REF10214 N-REF10215 K-REF10216 A-REF10217
       LDA-REF10218 TAU-REF10219 C-REF10220 LDC-REF10221 WORK-REF10222
       INFO-REF10223))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%SPPCON "sppcon_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (ANORM :FOREIGN-ADDRESS)
   (RCOND :FOREIGN-ADDRESS) (WORK :FOREIGN-ADDRESS)
   (IWORK :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %SPPCON (UPLO N AP ANORM RCOND WORK IWORK INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SPPCON)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ANORM)
   (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT RCOND)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) WORK)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY (COMMON-LISP:SIGNED-BYTE 32)
     (COMMON-LISP:*))
    IWORK)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10225 ':INT32)
                              (ANORM-REF10227 ':FLOAT)
                              (RCOND-REF10228 ':FLOAT)
                              (INFO-REF10231 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10225 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ANORM-REF10227 :FLOAT) ANORM)
    (COMMON-LISP:SETF (CFFI:MEM-REF RCOND-REF10228 :FLOAT) RCOND)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10231 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10226 AP)
                                            (WORK-REF10229 WORK)
                                            (IWORK-REF10230 IWORK))
      (%%SPPCON UPLO N-REF10225 AP-REF10226 ANORM-REF10227
       RCOND-REF10228 WORK-REF10229 IWORK-REF10230 INFO-REF10231))))

(FOREIGN-FUNCTIONS:DEF-FOREIGN-CALL (%%CPPTRF "cpptrf_")
  ((UPLO (COMMON-LISP:* :CHAR) COMMON-LISP:STRING) (N :FOREIGN-ADDRESS)
   (AP :FOREIGN-ADDRESS) (INFO :FOREIGN-ADDRESS))
  :RETURNING :VOID :RELEASE-HEAP :NEVER :ALLOW-GC :NEVER)

(COMMON-LISP:DEFUN %CPPTRF (UPLO N AP INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CPPTRF)
   (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
   (COMMON-LISP:TYPE
    (COMMON-LISP:SIMPLE-ARRAY
     (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) (COMMON-LISP:*))
    AP)
   (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF10233 ':INT32)
                              (INFO-REF10235 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF10233 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF10235 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF10234 AP))
      (%%CPPTRF UPLO N-REF10233 AP-REF10234 INFO-REF10235))))

(COMMON-LISP:DECLAIM (COMMON-LISP:NOTINLINE %%SGERQF %SGERQF %%DLASQ4
                      %DLASQ4 %%DORBDB1 %DORBDB1 %%SORGR2 %SORGR2
                      %%CHPGVX %CHPGVX %%CSYTRI_3 %CSYTRI_3 %%ZGEQRT3
                      %ZGEQRT3 %%CGBSVXX %CGBSVXX %%ZLAT2C %ZLAT2C
                      %%ZLAG2C %ZLAG2C %%DTBTRS %DTBTRS %%SSYSV %SSYSV
                      %%DLAQGB %DLAQGB %%CGELSD %CGELSD %%ZLAQR5
                      %ZLAQR5 %%CLACP2 %CLACP2 %%ZSYTRS_ROOK
                      %ZSYTRS_ROOK %%DORMQL %DORMQL %%ZGEBRD %ZGEBRD
                      %%DSYTD2 %DSYTD2 %%ILADLR %ILADLR %%DTRRFS
                      %DTRRFS %%ZGEMQR %ZGEMQR %%CTRTRS %CTRTRS
                      %%ZHPTRF %ZHPTRF %%SLA_PORFSX_EXTENDED
                      %SLA_PORFSX_EXTENDED %%DSYEVX_2STAGE
                      %DSYEVX_2STAGE %%CTRTI2 %CTRTI2 %%DLASQ1 %DLASQ1
                      %%SSYSV_AA %SSYSV_AA %%DSYCON_3 %DSYCON_3
                      %%ZUNGBR %ZUNGBR %%SSYTRI2 %SSYTRI2 %%DLARRB
                      %DLARRB %%DTGSYL %DTGSYL %%DORG2L %DORG2L
                      %%DISNAN %DISNAN %%CTFTTR %CTFTTR %%SLAEDA
                      %SLAEDA %%CSYTF2_RK %CSYTF2_RK %%DSYCON_ROOK
                      %DSYCON_ROOK %%SSTEV %SSTEV %%CGELS %CGELS
                      %%DLASRT %DLASRT %%ZTPTTF %ZTPTTF %%SORBDB2
                      %SORBDB2 %%SLAEBZ %SLAEBZ %%SLAQR0 %SLAQR0
                      %%ZPBTRF %ZPBTRF %%ILAZLC %ILAZLC %%DPBEQU
                      %DPBEQU %%DLAED8 %DLAED8 %%DLAPMR %DLAPMR
                      %%DPTTRF %DPTTRF %%CLAHEF_ROOK %CLAHEF_ROOK
                      %%CPOTRF %CPOTRF %%DLAED9 %DLAED9 %%CGGSVD3
                      %CGGSVD3 %%DLASYF_ROOK %DLASYF_ROOK %%CTGSY2
                      %CTGSY2 %%CLARRV %CLARRV %%CGESVDQ %CGESVDQ
                      %%DLAUU2 %DLAUU2 %%SGBEQU %SGBEQU %%ZHETF2
                      %ZHETF2 %%CHBGVD %CHBGVD %%DLANSB %DLANSB
                      %%STRTTP %STRTTP %%SPTRFS %SPTRFS %%ZLAQSP
                      %ZLAQSP %%ZLAQGE %ZLAQGE %%ZSYTRS2 %ZSYTRS2
                      %%CLATRD %CLATRD %%ZPTSVX %ZPTSVX %%DORMR2
                      %DORMR2 %%ZGBEQU %ZGBEQU %%DTPTTF %DTPTTF
                      %%DSTEGR %DSTEGR %%CUNBDB6 %CUNBDB6 %%DGGSVP3
                      %DGGSVP3 %%SGEQRF %SGEQRF %%ZSPTRS %ZSPTRS
                      %%SGESV %SGESV %%CSYRFSX %CSYRFSX %%CLAQHP
                      %CLAQHP %%DPOSV %DPOSV %%CHPTRD %CHPTRD %%DLARFG
                      %DLARFG %%ZUNBDB3 %ZUNBDB3 %%SGBTRF %SGBTRF
                      %%SLASR %SLASR %%SLAGTF %SLAGTF %%DLASWP %DLASWP
                      %%ZHPTRI %ZHPTRI %%SLASYF_ROOK %SLASYF_ROOK
                      %%ZLAHEF_RK %ZLAHEF_RK %%ZLANSP %ZLANSP
                      %%CSYCONVF_ROOK %CSYCONVF_ROOK %%SGESDD %SGESDD
                      %%ZPBRFS %ZPBRFS %%ZPPRFS %ZPPRFS %%ZGESV %ZGESV
                      %%ZGEQL2 %ZGEQL2 %%SPBSV %SPBSV %%ZGGSVD3
                      %ZGGSVD3 %%CTREVC %CTREVC %%SSPEVX %SSPEVX
                      %%CGGEV %CGGEV %%DLANST %DLANST %%ZGEJSV %ZGEJSV
                      %%CGETRF2 %CGETRF2 %%DORGL2 %DORGL2 %%CHEEQUB
                      %CHEEQUB %%DLAR2V %DLAR2V %%CHETRF_AA %CHETRF_AA
                      %%CLAQGE %CLAQGE %%ZPFTRS %ZPFTRS %%SSPTRS
                      %SSPTRS %%ZHEGVX %ZHEGVX %%SORGL2 %SORGL2
                      %%CHETRF_RK %CHETRF_RK %%ZTPLQT %ZTPLQT %%DGEQRF
                      %DGEQRF %%ZSPCON %ZSPCON %%CGBTRS %CGBTRS
                      %%CLAQR5 %CLAQR5 %%DLA_GBRCOND %DLA_GBRCOND
                      %%SLAQSP %SLAQSP %%SLASCL %SLASCL %%CGEMQRT
                      %CGEMQRT %%DLASCL %DLASCL %%ZLAR2V %ZLAR2V
                      %%CGBBRD %CGBBRD %%CLALSD %CLALSD %%CGGEVX
                      %CGGEVX %%CGERQF %CGERQF %%ZTREXC %ZTREXC
                      %%ZLA_SYRPVGRW %ZLA_SYRPVGRW %%SPBEQU %SPBEQU
                      %%SLA_GBRPVGRW %SLA_GBRPVGRW %%DPFTRF %DPFTRF
                      %%SPPSVX %SPPSVX %%CLAQR2 %CLAQR2 %%ZGEMLQ
                      %ZGEMLQ %%DTFTTP %DTFTTP %%SSYCON %SSYCON
                      %%DGBRFS %DGBRFS %%ZSTEMR %ZSTEMR %%DGGBAK
                      %DGGBAK %%DLARFGP %DLARFGP %%SLA_LIN_BERR
                      %SLA_LIN_BERR %%STGSEN %STGSEN %%DLAR1V %DLAR1V
                      %%ZGELQT %ZGELQT %%DLAMTSQR %DLAMTSQR %%SGEHD2
                      %SGEHD2 %%STRTTF %STRTTF %%CLAUNHR_COL_GETRFNP
                      %CLAUNHR_COL_GETRFNP %%CTRSEN %CTRSEN %%DTREVC
                      %DTREVC %%DSYGVX %DSYGVX %%SORBDB6 %SORBDB6
                      %%DSPTRS %DSPTRS %%DPPTRS %DPPTRS %%DGEBRD
                      %DGEBRD %%DLAPY3 %DLAPY3 %%ZLA_SYRCOND_C
                      %ZLA_SYRCOND_C %%CLAHEF_AA %CLAHEF_AA %%ZLATRZ
                      %ZLATRZ %%CUPGTR %CUPGTR %%DTRTRI %DTRTRI
                      %%SLA_PORPVGRW %SLA_PORPVGRW %%SGELQT3 %SGELQT3
                      %%CGGBAL %CGGBAL %%DLAQR2 %DLAQR2 %%SGBSV %SGBSV
                      %%ZHERFS %ZHERFS %%DLASQ3 %DLASQ3 %%DSPCON
                      %DSPCON %%ZHETF2_RK %ZHETF2_RK %%SLANSY %SLANSY
                      %%SGELQ2 %SGELQ2 %%ZLAGTM %ZLAGTM %%DLAQR5
                      %DLAQR5 %%ZLABRD %ZLABRD %%CHETRF_ROOK
                      %CHETRF_ROOK %%CHBEVX %CHBEVX %%ZLALSA %ZLALSA
                      %%DLAISNAN %DLAISNAN %%ZHFRK %ZHFRK %%SPSTRF
                      %SPSTRF %%DPPRFS %DPPRFS %%ZTRRFS %ZTRRFS
                      %%DLAEBZ %DLAEBZ %%SLAORHR_COL_GETRFNP2
                      %SLAORHR_COL_GETRFNP2 %%STPLQT %STPLQT %%ZTPTRS
                      %ZTPTRS %%CGBTF2 %CGBTF2 %%CLA_SYAMV %CLA_SYAMV
                      %%DLATSQR %DLATSQR %%ILAENV2STAGE %ILAENV2STAGE
                      %%SLANGB %SLANGB %%DGECON %DGECON %%SPPSV %SPPSV
                      %%ZSYSV_RK %ZSYSV_RK %%ZHESV_ROOK %ZHESV_ROOK
                      %%ZSYTRS_AA %ZSYTRS_AA %%ZPTSV %ZPTSV
                      %%SLA_SYRCOND %SLA_SYRCOND %%CUNCSD2BY1
                      %CUNCSD2BY1 %%ZPPCON %ZPPCON %%CLANSP %CLANSP
                      %%CLATRZ %CLATRZ %%SLAQR5 %SLAQR5 %%DRSCL %DRSCL
                      %%ZLAQR3 %ZLAQR3 %%SORM2L %SORM2L %%CHETRS_ROOK
                      %CHETRS_ROOK %%CLAHEF %CLAHEF %%DGBEQU %DGBEQU
                      %%SGETRF %SGETRF %%SGGSVP3 %SGGSVP3 %%SSPRFS
                      %SSPRFS %%CPTTS2 %CPTTS2 %%SLAHR2 %SLAHR2
                      %%ZHEEVD %ZHEEVD %%SGESC2 %SGESC2 %%DOPGTR
                      %DOPGTR %%ZGERQF %ZGERQF %%CSPCON %CSPCON
                      %%ZLARFG %ZLARFG %%ZGEQR2P %ZGEQR2P
                      %%DLA_LIN_BERR %DLA_LIN_BERR %%SORMQL %SORMQL
                      %%CSYTRS %CSYTRS %%DLASD6 %DLASD6 %%CLASCL2
                      %CLASCL2 %%ZGELQ2 %ZGELQ2 %%ZLANHE %ZLANHE
                      %%STPLQT2 %STPLQT2 %%DSYTRF %DSYTRF %%CLAPLL
                      %CLAPLL %%STBCON %STBCON %%CHETRI %CHETRI
                      %%ZLA_GBAMV %ZLA_GBAMV %%ZUNM2L %ZUNM2L %%SPPCON
                      %SPPCON %%CPPTRF %CPPTRF))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS
  'MAGICL.FOREIGN-LIBRARIES::LIBLAPACK
  '(("SGERQF" "sgerqf_" %%SGERQF %SGERQF)
    ("DLASQ4" "dlasq4_" %%DLASQ4 %DLASQ4)
    ("DORBDB1" "dorbdb1_" %%DORBDB1 %DORBDB1)
    ("SORGR2" "sorgr2_" %%SORGR2 %SORGR2)
    ("CHPGVX" "chpgvx_" %%CHPGVX %CHPGVX)
    ("CSYTRI_3" "csytri_3_" %%CSYTRI_3 %CSYTRI_3)
    ("ZGEQRT3" "zgeqrt3_" %%ZGEQRT3 %ZGEQRT3)
    ("CGBSVXX" "cgbsvxx_" %%CGBSVXX %CGBSVXX)
    ("ZLAT2C" "zlat2c_" %%ZLAT2C %ZLAT2C)
    ("ZLAG2C" "zlag2c_" %%ZLAG2C %ZLAG2C)
    ("DTBTRS" "dtbtrs_" %%DTBTRS %DTBTRS)
    ("SSYSV" "ssysv_" %%SSYSV %SSYSV)
    ("DLAQGB" "dlaqgb_" %%DLAQGB %DLAQGB)
    ("CGELSD" "cgelsd_" %%CGELSD %CGELSD)
    ("ZLAQR5" "zlaqr5_" %%ZLAQR5 %ZLAQR5)
    ("CLACP2" "clacp2_" %%CLACP2 %CLACP2)
    ("ZSYTRS_ROOK" "zsytrs_rook_" %%ZSYTRS_ROOK %ZSYTRS_ROOK)
    ("DORMQL" "dormql_" %%DORMQL %DORMQL)
    ("ZGEBRD" "zgebrd_" %%ZGEBRD %ZGEBRD)
    ("DSYTD2" "dsytd2_" %%DSYTD2 %DSYTD2)
    ("ILADLR" "iladlr_" %%ILADLR %ILADLR)
    ("DTRRFS" "dtrrfs_" %%DTRRFS %DTRRFS)
    ("ZGEMQR" "zgemqr_" %%ZGEMQR %ZGEMQR)
    ("CTRTRS" "ctrtrs_" %%CTRTRS %CTRTRS)
    ("ZHPTRF" "zhptrf_" %%ZHPTRF %ZHPTRF)
    ("SLA_PORFSX_EXTENDED" "sla_porfsx_extended_" %%SLA_PORFSX_EXTENDED
     %SLA_PORFSX_EXTENDED)
    ("DSYEVX_2STAGE" "dsyevx_2stage_" %%DSYEVX_2STAGE %DSYEVX_2STAGE)
    ("CTRTI2" "ctrti2_" %%CTRTI2 %CTRTI2)
    ("DLASQ1" "dlasq1_" %%DLASQ1 %DLASQ1)
    ("SSYSV_AA" "ssysv_aa_" %%SSYSV_AA %SSYSV_AA)
    ("DSYCON_3" "dsycon_3_" %%DSYCON_3 %DSYCON_3)
    ("ZUNGBR" "zungbr_" %%ZUNGBR %ZUNGBR)
    ("SSYTRI2" "ssytri2_" %%SSYTRI2 %SSYTRI2)
    ("DLARRB" "dlarrb_" %%DLARRB %DLARRB)
    ("DTGSYL" "dtgsyl_" %%DTGSYL %DTGSYL)
    ("DORG2L" "dorg2l_" %%DORG2L %DORG2L)
    ("DISNAN" "disnan_" %%DISNAN %DISNAN)
    ("CTFTTR" "ctfttr_" %%CTFTTR %CTFTTR)
    ("SLAEDA" "slaeda_" %%SLAEDA %SLAEDA)
    ("CSYTF2_RK" "csytf2_rk_" %%CSYTF2_RK %CSYTF2_RK)
    ("DSYCON_ROOK" "dsycon_rook_" %%DSYCON_ROOK %DSYCON_ROOK)
    ("SSTEV" "sstev_" %%SSTEV %SSTEV) ("CGELS" "cgels_" %%CGELS %CGELS)
    ("DLASRT" "dlasrt_" %%DLASRT %DLASRT)
    ("ZTPTTF" "ztpttf_" %%ZTPTTF %ZTPTTF)
    ("SORBDB2" "sorbdb2_" %%SORBDB2 %SORBDB2)
    ("SLAEBZ" "slaebz_" %%SLAEBZ %SLAEBZ)
    ("SLAQR0" "slaqr0_" %%SLAQR0 %SLAQR0)
    ("ZPBTRF" "zpbtrf_" %%ZPBTRF %ZPBTRF)
    ("ILAZLC" "ilazlc_" %%ILAZLC %ILAZLC)
    ("DPBEQU" "dpbequ_" %%DPBEQU %DPBEQU)
    ("DLAED8" "dlaed8_" %%DLAED8 %DLAED8)
    ("DLAPMR" "dlapmr_" %%DLAPMR %DLAPMR)
    ("DPTTRF" "dpttrf_" %%DPTTRF %DPTTRF)
    ("CLAHEF_ROOK" "clahef_rook_" %%CLAHEF_ROOK %CLAHEF_ROOK)
    ("CPOTRF" "cpotrf_" %%CPOTRF %CPOTRF)
    ("DLAED9" "dlaed9_" %%DLAED9 %DLAED9)
    ("CGGSVD3" "cggsvd3_" %%CGGSVD3 %CGGSVD3)
    ("DLASYF_ROOK" "dlasyf_rook_" %%DLASYF_ROOK %DLASYF_ROOK)
    ("CTGSY2" "ctgsy2_" %%CTGSY2 %CTGSY2)
    ("CLARRV" "clarrv_" %%CLARRV %CLARRV)
    ("CGESVDQ" "cgesvdq_" %%CGESVDQ %CGESVDQ)
    ("DLAUU2" "dlauu2_" %%DLAUU2 %DLAUU2)
    ("SGBEQU" "sgbequ_" %%SGBEQU %SGBEQU)
    ("ZHETF2" "zhetf2_" %%ZHETF2 %ZHETF2)
    ("CHBGVD" "chbgvd_" %%CHBGVD %CHBGVD)
    ("DLANSB" "dlansb_" %%DLANSB %DLANSB)
    ("STRTTP" "strttp_" %%STRTTP %STRTTP)
    ("SPTRFS" "sptrfs_" %%SPTRFS %SPTRFS)
    ("ZLAQSP" "zlaqsp_" %%ZLAQSP %ZLAQSP)
    ("ZLAQGE" "zlaqge_" %%ZLAQGE %ZLAQGE)
    ("ZSYTRS2" "zsytrs2_" %%ZSYTRS2 %ZSYTRS2)
    ("CLATRD" "clatrd_" %%CLATRD %CLATRD)
    ("ZPTSVX" "zptsvx_" %%ZPTSVX %ZPTSVX)
    ("DORMR2" "dormr2_" %%DORMR2 %DORMR2)
    ("ZGBEQU" "zgbequ_" %%ZGBEQU %ZGBEQU)
    ("DTPTTF" "dtpttf_" %%DTPTTF %DTPTTF)
    ("DSTEGR" "dstegr_" %%DSTEGR %DSTEGR)
    ("CUNBDB6" "cunbdb6_" %%CUNBDB6 %CUNBDB6)
    ("DGGSVP3" "dggsvp3_" %%DGGSVP3 %DGGSVP3)
    ("SGEQRF" "sgeqrf_" %%SGEQRF %SGEQRF)
    ("ZSPTRS" "zsptrs_" %%ZSPTRS %ZSPTRS)
    ("SGESV" "sgesv_" %%SGESV %SGESV)
    ("CSYRFSX" "csyrfsx_" %%CSYRFSX %CSYRFSX)
    ("CLAQHP" "claqhp_" %%CLAQHP %CLAQHP)
    ("DPOSV" "dposv_" %%DPOSV %DPOSV)
    ("CHPTRD" "chptrd_" %%CHPTRD %CHPTRD)
    ("DLARFG" "dlarfg_" %%DLARFG %DLARFG)
    ("ZUNBDB3" "zunbdb3_" %%ZUNBDB3 %ZUNBDB3)
    ("SGBTRF" "sgbtrf_" %%SGBTRF %SGBTRF)
    ("SLASR" "slasr_" %%SLASR %SLASR)
    ("SLAGTF" "slagtf_" %%SLAGTF %SLAGTF)
    ("DLASWP" "dlaswp_" %%DLASWP %DLASWP)
    ("ZHPTRI" "zhptri_" %%ZHPTRI %ZHPTRI)
    ("SLASYF_ROOK" "slasyf_rook_" %%SLASYF_ROOK %SLASYF_ROOK)
    ("ZLAHEF_RK" "zlahef_rk_" %%ZLAHEF_RK %ZLAHEF_RK)
    ("ZLANSP" "zlansp_" %%ZLANSP %ZLANSP)
    ("CSYCONVF_ROOK" "csyconvf_rook_" %%CSYCONVF_ROOK %CSYCONVF_ROOK)
    ("SGESDD" "sgesdd_" %%SGESDD %SGESDD)
    ("ZPBRFS" "zpbrfs_" %%ZPBRFS %ZPBRFS)
    ("ZPPRFS" "zpprfs_" %%ZPPRFS %ZPPRFS)
    ("ZGESV" "zgesv_" %%ZGESV %ZGESV)
    ("ZGEQL2" "zgeql2_" %%ZGEQL2 %ZGEQL2)
    ("SPBSV" "spbsv_" %%SPBSV %SPBSV)
    ("ZGGSVD3" "zggsvd3_" %%ZGGSVD3 %ZGGSVD3)
    ("CTREVC" "ctrevc_" %%CTREVC %CTREVC)
    ("SSPEVX" "sspevx_" %%SSPEVX %SSPEVX)
    ("CGGEV" "cggev_" %%CGGEV %CGGEV)
    ("DLANST" "dlanst_" %%DLANST %DLANST)
    ("ZGEJSV" "zgejsv_" %%ZGEJSV %ZGEJSV)
    ("CGETRF2" "cgetrf2_" %%CGETRF2 %CGETRF2)
    ("DORGL2" "dorgl2_" %%DORGL2 %DORGL2)
    ("CHEEQUB" "cheequb_" %%CHEEQUB %CHEEQUB)
    ("DLAR2V" "dlar2v_" %%DLAR2V %DLAR2V)
    ("CHETRF_AA" "chetrf_aa_" %%CHETRF_AA %CHETRF_AA)
    ("CLAQGE" "claqge_" %%CLAQGE %CLAQGE)
    ("ZPFTRS" "zpftrs_" %%ZPFTRS %ZPFTRS)
    ("SSPTRS" "ssptrs_" %%SSPTRS %SSPTRS)
    ("ZHEGVX" "zhegvx_" %%ZHEGVX %ZHEGVX)
    ("SORGL2" "sorgl2_" %%SORGL2 %SORGL2)
    ("CHETRF_RK" "chetrf_rk_" %%CHETRF_RK %CHETRF_RK)
    ("ZTPLQT" "ztplqt_" %%ZTPLQT %ZTPLQT)
    ("DGEQRF" "dgeqrf_" %%DGEQRF %DGEQRF)
    ("ZSPCON" "zspcon_" %%ZSPCON %ZSPCON)
    ("CGBTRS" "cgbtrs_" %%CGBTRS %CGBTRS)
    ("CLAQR5" "claqr5_" %%CLAQR5 %CLAQR5)
    ("DLA_GBRCOND" "dla_gbrcond_" %%DLA_GBRCOND %DLA_GBRCOND)
    ("SLAQSP" "slaqsp_" %%SLAQSP %SLAQSP)
    ("SLASCL" "slascl_" %%SLASCL %SLASCL)
    ("CGEMQRT" "cgemqrt_" %%CGEMQRT %CGEMQRT)
    ("DLASCL" "dlascl_" %%DLASCL %DLASCL)
    ("ZLAR2V" "zlar2v_" %%ZLAR2V %ZLAR2V)
    ("CGBBRD" "cgbbrd_" %%CGBBRD %CGBBRD)
    ("CLALSD" "clalsd_" %%CLALSD %CLALSD)
    ("CGGEVX" "cggevx_" %%CGGEVX %CGGEVX)
    ("CGERQF" "cgerqf_" %%CGERQF %CGERQF)
    ("ZTREXC" "ztrexc_" %%ZTREXC %ZTREXC)
    ("ZLA_SYRPVGRW" "zla_syrpvgrw_" %%ZLA_SYRPVGRW %ZLA_SYRPVGRW)
    ("SPBEQU" "spbequ_" %%SPBEQU %SPBEQU)
    ("SLA_GBRPVGRW" "sla_gbrpvgrw_" %%SLA_GBRPVGRW %SLA_GBRPVGRW)
    ("DPFTRF" "dpftrf_" %%DPFTRF %DPFTRF)
    ("SPPSVX" "sppsvx_" %%SPPSVX %SPPSVX)
    ("CLAQR2" "claqr2_" %%CLAQR2 %CLAQR2)
    ("ZGEMLQ" "zgemlq_" %%ZGEMLQ %ZGEMLQ)
    ("DTFTTP" "dtfttp_" %%DTFTTP %DTFTTP)
    ("SSYCON" "ssycon_" %%SSYCON %SSYCON)
    ("DGBRFS" "dgbrfs_" %%DGBRFS %DGBRFS)
    ("ZSTEMR" "zstemr_" %%ZSTEMR %ZSTEMR)
    ("DGGBAK" "dggbak_" %%DGGBAK %DGGBAK)
    ("DLARFGP" "dlarfgp_" %%DLARFGP %DLARFGP)
    ("SLA_LIN_BERR" "sla_lin_berr_" %%SLA_LIN_BERR %SLA_LIN_BERR)
    ("STGSEN" "stgsen_" %%STGSEN %STGSEN)
    ("DLAR1V" "dlar1v_" %%DLAR1V %DLAR1V)
    ("ZGELQT" "zgelqt_" %%ZGELQT %ZGELQT)
    ("DLAMTSQR" "dlamtsqr_" %%DLAMTSQR %DLAMTSQR)
    ("SGEHD2" "sgehd2_" %%SGEHD2 %SGEHD2)
    ("STRTTF" "strttf_" %%STRTTF %STRTTF)
    ("CLAUNHR_COL_GETRFNP" "claunhr_col_getrfnp_" %%CLAUNHR_COL_GETRFNP
     %CLAUNHR_COL_GETRFNP)
    ("CTRSEN" "ctrsen_" %%CTRSEN %CTRSEN)
    ("DTREVC" "dtrevc_" %%DTREVC %DTREVC)
    ("DSYGVX" "dsygvx_" %%DSYGVX %DSYGVX)
    ("SORBDB6" "sorbdb6_" %%SORBDB6 %SORBDB6)
    ("DSPTRS" "dsptrs_" %%DSPTRS %DSPTRS)
    ("DPPTRS" "dpptrs_" %%DPPTRS %DPPTRS)
    ("DGEBRD" "dgebrd_" %%DGEBRD %DGEBRD)
    ("DLAPY3" "dlapy3_" %%DLAPY3 %DLAPY3)
    ("ZLA_SYRCOND_C" "zla_syrcond_c_" %%ZLA_SYRCOND_C %ZLA_SYRCOND_C)
    ("CLAHEF_AA" "clahef_aa_" %%CLAHEF_AA %CLAHEF_AA)
    ("ZLATRZ" "zlatrz_" %%ZLATRZ %ZLATRZ)
    ("CUPGTR" "cupgtr_" %%CUPGTR %CUPGTR)
    ("DTRTRI" "dtrtri_" %%DTRTRI %DTRTRI)
    ("SLA_PORPVGRW" "sla_porpvgrw_" %%SLA_PORPVGRW %SLA_PORPVGRW)
    ("SGELQT3" "sgelqt3_" %%SGELQT3 %SGELQT3)
    ("CGGBAL" "cggbal_" %%CGGBAL %CGGBAL)
    ("DLAQR2" "dlaqr2_" %%DLAQR2 %DLAQR2)
    ("SGBSV" "sgbsv_" %%SGBSV %SGBSV)
    ("ZHERFS" "zherfs_" %%ZHERFS %ZHERFS)
    ("DLASQ3" "dlasq3_" %%DLASQ3 %DLASQ3)
    ("DSPCON" "dspcon_" %%DSPCON %DSPCON)
    ("ZHETF2_RK" "zhetf2_rk_" %%ZHETF2_RK %ZHETF2_RK)
    ("SLANSY" "slansy_" %%SLANSY %SLANSY)
    ("SGELQ2" "sgelq2_" %%SGELQ2 %SGELQ2)
    ("ZLAGTM" "zlagtm_" %%ZLAGTM %ZLAGTM)
    ("DLAQR5" "dlaqr5_" %%DLAQR5 %DLAQR5)
    ("ZLABRD" "zlabrd_" %%ZLABRD %ZLABRD)
    ("CHETRF_ROOK" "chetrf_rook_" %%CHETRF_ROOK %CHETRF_ROOK)
    ("CHBEVX" "chbevx_" %%CHBEVX %CHBEVX)
    ("ZLALSA" "zlalsa_" %%ZLALSA %ZLALSA)
    ("DLAISNAN" "dlaisnan_" %%DLAISNAN %DLAISNAN)
    ("ZHFRK" "zhfrk_" %%ZHFRK %ZHFRK)
    ("SPSTRF" "spstrf_" %%SPSTRF %SPSTRF)
    ("DPPRFS" "dpprfs_" %%DPPRFS %DPPRFS)
    ("ZTRRFS" "ztrrfs_" %%ZTRRFS %ZTRRFS)
    ("DLAEBZ" "dlaebz_" %%DLAEBZ %DLAEBZ)
    ("SLAORHR_COL_GETRFNP2" "slaorhr_col_getrfnp2_"
     %%SLAORHR_COL_GETRFNP2 %SLAORHR_COL_GETRFNP2)
    ("STPLQT" "stplqt_" %%STPLQT %STPLQT)
    ("ZTPTRS" "ztptrs_" %%ZTPTRS %ZTPTRS)
    ("CGBTF2" "cgbtf2_" %%CGBTF2 %CGBTF2)
    ("CLA_SYAMV" "cla_syamv_" %%CLA_SYAMV %CLA_SYAMV)
    ("DLATSQR" "dlatsqr_" %%DLATSQR %DLATSQR)
    ("ILAENV2STAGE" "ilaenv2stage_" %%ILAENV2STAGE %ILAENV2STAGE)
    ("SLANGB" "slangb_" %%SLANGB %SLANGB)
    ("DGECON" "dgecon_" %%DGECON %DGECON)
    ("SPPSV" "sppsv_" %%SPPSV %SPPSV)
    ("ZSYSV_RK" "zsysv_rk_" %%ZSYSV_RK %ZSYSV_RK)
    ("ZHESV_ROOK" "zhesv_rook_" %%ZHESV_ROOK %ZHESV_ROOK)
    ("ZSYTRS_AA" "zsytrs_aa_" %%ZSYTRS_AA %ZSYTRS_AA)
    ("ZPTSV" "zptsv_" %%ZPTSV %ZPTSV)
    ("SLA_SYRCOND" "sla_syrcond_" %%SLA_SYRCOND %SLA_SYRCOND)
    ("CUNCSD2BY1" "cuncsd2by1_" %%CUNCSD2BY1 %CUNCSD2BY1)
    ("ZPPCON" "zppcon_" %%ZPPCON %ZPPCON)
    ("CLANSP" "clansp_" %%CLANSP %CLANSP)
    ("CLATRZ" "clatrz_" %%CLATRZ %CLATRZ)
    ("SLAQR5" "slaqr5_" %%SLAQR5 %SLAQR5)
    ("DRSCL" "drscl_" %%DRSCL %DRSCL)
    ("ZLAQR3" "zlaqr3_" %%ZLAQR3 %ZLAQR3)
    ("SORM2L" "sorm2l_" %%SORM2L %SORM2L)
    ("CHETRS_ROOK" "chetrs_rook_" %%CHETRS_ROOK %CHETRS_ROOK)
    ("CLAHEF" "clahef_" %%CLAHEF %CLAHEF)
    ("DGBEQU" "dgbequ_" %%DGBEQU %DGBEQU)
    ("SGETRF" "sgetrf_" %%SGETRF %SGETRF)
    ("SGGSVP3" "sggsvp3_" %%SGGSVP3 %SGGSVP3)
    ("SSPRFS" "ssprfs_" %%SSPRFS %SSPRFS)
    ("CPTTS2" "cptts2_" %%CPTTS2 %CPTTS2)
    ("SLAHR2" "slahr2_" %%SLAHR2 %SLAHR2)
    ("ZHEEVD" "zheevd_" %%ZHEEVD %ZHEEVD)
    ("SGESC2" "sgesc2_" %%SGESC2 %SGESC2)
    ("DOPGTR" "dopgtr_" %%DOPGTR %DOPGTR)
    ("ZGERQF" "zgerqf_" %%ZGERQF %ZGERQF)
    ("CSPCON" "cspcon_" %%CSPCON %CSPCON)
    ("ZLARFG" "zlarfg_" %%ZLARFG %ZLARFG)
    ("ZGEQR2P" "zgeqr2p_" %%ZGEQR2P %ZGEQR2P)
    ("DLA_LIN_BERR" "dla_lin_berr_" %%DLA_LIN_BERR %DLA_LIN_BERR)
    ("SORMQL" "sormql_" %%SORMQL %SORMQL)
    ("CSYTRS" "csytrs_" %%CSYTRS %CSYTRS)
    ("DLASD6" "dlasd6_" %%DLASD6 %DLASD6)
    ("CLASCL2" "clascl2_" %%CLASCL2 %CLASCL2)
    ("ZGELQ2" "zgelq2_" %%ZGELQ2 %ZGELQ2)
    ("ZLANHE" "zlanhe_" %%ZLANHE %ZLANHE)
    ("STPLQT2" "stplqt2_" %%STPLQT2 %STPLQT2)
    ("DSYTRF" "dsytrf_" %%DSYTRF %DSYTRF)
    ("CLAPLL" "clapll_" %%CLAPLL %CLAPLL)
    ("STBCON" "stbcon_" %%STBCON %STBCON)
    ("CHETRI" "chetri_" %%CHETRI %CHETRI)
    ("ZLA_GBAMV" "zla_gbamv_" %%ZLA_GBAMV %ZLA_GBAMV)
    ("ZUNM2L" "zunm2l_" %%ZUNM2L %ZUNM2L)
    ("SPPCON" "sppcon_" %%SPPCON %SPPCON)
    ("CPPTRF" "cpptrf_" %%CPPTRF %CPPTRF)))

(COMMON-LISP:EXPORT '(%SGERQF %DLASQ4 %DORBDB1 %SORGR2 %CHPGVX
                      %CSYTRI_3 %ZGEQRT3 %CGBSVXX %ZLAT2C %ZLAG2C
                      %DTBTRS %SSYSV %DLAQGB %CGELSD %ZLAQR5 %CLACP2
                      %ZSYTRS_ROOK %DORMQL %ZGEBRD %DSYTD2 %ILADLR
                      %DTRRFS %ZGEMQR %CTRTRS %ZHPTRF
                      %SLA_PORFSX_EXTENDED %DSYEVX_2STAGE %CTRTI2
                      %DLASQ1 %SSYSV_AA %DSYCON_3 %ZUNGBR %SSYTRI2
                      %DLARRB %DTGSYL %DORG2L %DISNAN %CTFTTR %SLAEDA
                      %CSYTF2_RK %DSYCON_ROOK %SSTEV %CGELS %DLASRT
                      %ZTPTTF %SORBDB2 %SLAEBZ %SLAQR0 %ZPBTRF %ILAZLC
                      %DPBEQU %DLAED8 %DLAPMR %DPTTRF %CLAHEF_ROOK
                      %CPOTRF %DLAED9 %CGGSVD3 %DLASYF_ROOK %CTGSY2
                      %CLARRV %CGESVDQ %DLAUU2 %SGBEQU %ZHETF2 %CHBGVD
                      %DLANSB %STRTTP %SPTRFS %ZLAQSP %ZLAQGE %ZSYTRS2
                      %CLATRD %ZPTSVX %DORMR2 %ZGBEQU %DTPTTF %DSTEGR
                      %CUNBDB6 %DGGSVP3 %SGEQRF %ZSPTRS %SGESV %CSYRFSX
                      %CLAQHP %DPOSV %CHPTRD %DLARFG %ZUNBDB3 %SGBTRF
                      %SLASR %SLAGTF %DLASWP %ZHPTRI %SLASYF_ROOK
                      %ZLAHEF_RK %ZLANSP %CSYCONVF_ROOK %SGESDD %ZPBRFS
                      %ZPPRFS %ZGESV %ZGEQL2 %SPBSV %ZGGSVD3 %CTREVC
                      %SSPEVX %CGGEV %DLANST %ZGEJSV %CGETRF2 %DORGL2
                      %CHEEQUB %DLAR2V %CHETRF_AA %CLAQGE %ZPFTRS
                      %SSPTRS %ZHEGVX %SORGL2 %CHETRF_RK %ZTPLQT
                      %DGEQRF %ZSPCON %CGBTRS %CLAQR5 %DLA_GBRCOND
                      %SLAQSP %SLASCL %CGEMQRT %DLASCL %ZLAR2V %CGBBRD
                      %CLALSD %CGGEVX %CGERQF %ZTREXC %ZLA_SYRPVGRW
                      %SPBEQU %SLA_GBRPVGRW %DPFTRF %SPPSVX %CLAQR2
                      %ZGEMLQ %DTFTTP %SSYCON %DGBRFS %ZSTEMR %DGGBAK
                      %DLARFGP %SLA_LIN_BERR %STGSEN %DLAR1V %ZGELQT
                      %DLAMTSQR %SGEHD2 %STRTTF %CLAUNHR_COL_GETRFNP
                      %CTRSEN %DTREVC %DSYGVX %SORBDB6 %DSPTRS %DPPTRS
                      %DGEBRD %DLAPY3 %ZLA_SYRCOND_C %CLAHEF_AA %ZLATRZ
                      %CUPGTR %DTRTRI %SLA_PORPVGRW %SGELQT3 %CGGBAL
                      %DLAQR2 %SGBSV %ZHERFS %DLASQ3 %DSPCON %ZHETF2_RK
                      %SLANSY %SGELQ2 %ZLAGTM %DLAQR5 %ZLABRD
                      %CHETRF_ROOK %CHBEVX %ZLALSA %DLAISNAN %ZHFRK
                      %SPSTRF %DPPRFS %ZTRRFS %DLAEBZ
                      %SLAORHR_COL_GETRFNP2 %STPLQT %ZTPTRS %CGBTF2
                      %CLA_SYAMV %DLATSQR %ILAENV2STAGE %SLANGB %DGECON
                      %SPPSV %ZSYSV_RK %ZHESV_ROOK %ZSYTRS_AA %ZPTSV
                      %SLA_SYRCOND %CUNCSD2BY1 %ZPPCON %CLANSP %CLATRZ
                      %SLAQR5 %DRSCL %ZLAQR3 %SORM2L %CHETRS_ROOK
                      %CLAHEF %DGBEQU %SGETRF %SGGSVP3 %SSPRFS %CPTTS2
                      %SLAHR2 %ZHEEVD %SGESC2 %DOPGTR %ZGERQF %CSPCON
                      %ZLARFG %ZGEQR2P %DLA_LIN_BERR %SORMQL %CSYTRS
                      %DLASD6 %CLASCL2 %ZGELQ2 %ZLANHE %STPLQT2 %DSYTRF
                      %CLAPLL %STBCON %CHETRI %ZLA_GBAMV %ZUNM2L
                      %SPPCON %CPPTRF)
                    '#:MAGICL.LAPACK-CFFI)

;;; End of file.
